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(1) ay s TABLE ¢ NTATNS Tabet ON F re ERROR THAT CAN OCCUR. 
tt Heats hae iM Be ge ge ne 
Ch i. PTION SIT 2 its A ES UH pct It OLE I IS PERTINENT. 
© @) s 
ch) 7” 13: H ITE Te CONTA Nea ae Bec AIneD AS FOLLOWS: 
4 
il) ;* M 73 T Ran pe eAce 
(1) ;@ ss NT . T TA HERDER 
(1) :& T ::POINTS TO T TA 
1) ta ::POINTS TO T TA FORMAT 
il) 
(1) OO1172 SERRTB 
641 
643 
B8e ; ITEM 1 
645 001172 45 me ; RROR FL of Se TRANSMIT STATUS 
B46 001174 1 : TNH 
647 0011 34 Tl ; ERREC V TST 
b48 boi ba8 
64 
& : ITEM 2 
651 901202 g20412 EN2 ;NO HOST INPUT "yeenGnce Y=" 
£ 601 ptt : FBRPS VINO etn 
654 lel 
655 
£25 poi212 4 sib ena QRRECT 1.D. RESPONSE 
ee . as 
a4 pists at H3 i EARP CTNDLA ist WO BNO WO ‘ 
659 pO 1e16 744 oT : $ERRPC VTNOW 4 VE2 EAac 
650 O01 
661 
bes :ITEM 4 
001 5 M4 QRRECT nf UNEXPECTED ineur CHARACTER 
664 O01 4 Rape NOW TSTNUM RCVO 
665 00 : TY ERRPC vTNOu TNUM $§GDDAT SBDDAT 
is 
668 ; ITEM 
668 0012 30 MS ; INVALID BUSS ADDRESS, TRY AGAIN 
67 001 
672 O01 00 
672 O0le42 177560 FIRST: 177560 at CE ADDRESS OF SEQUIENTAL DL-11-A’B TYPE DEVIC 
EF 001 0 ApORESS Boo E SRB TYPE 
5.8. 4 
676 B5iSue raat VTNOW: 177560 te RENT. Bevie poe 53° 
677 001250 190011 100011 OPIER R SAVE COUNT <LOW BYTE> 
678 001252 000 TSTNUM: O ‘ERR PATTERN 
680 001254 000300 TIMEO: 300 ; CHARACTER FLAG TIME QUT CONSTANT 
661 O01eSe o0000S suBTST: & :SUBTEST DELAY CONSTA 
687 001260 000000 VTExx: 0 :1.0. AND EHARASTIZS 
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VTIS: 7 i Vv prOORESSES 
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78 ) : 

702 me PNTWIO: 132. fom ey FOR LINE PRINTER. 

re co ete 

706 00 000000 ate p 

708 ee RRRRRR BP st ;NON-ZERO IF SA = 224 

710 

cay 901 ? 002466 OO02402 BEGIN: MOV eTST2, WHERE ;STARTING ACCEPTANCE TEST ADORESS 

71 1 901330 CLR SAVES 

713 O01 001 CLR WF TEST 

714 O01 001 R PRTCNT 

715 O01 a GI 

716 O01 1332 MANF NC TEST ET W.F. PARAM. 

717 O01 274 RBEGIN: CLR PRICNT :RESTART ADDRESS 

cat pot 14 002402 HOV ats 2, WHERE 

720 001 1 010100 002402 BEGIN3: MOV ely ,WHERE ;START AT ECHO LOOP 

78 601478 7 007404 002402 BEGIN: Rav Scher ST,WHERE ;STARTING CHARACTER TEST ADDRESS 

724 001420 012737 007110 OO02402 BEGINe: MOV ek REE 60 WHERE  ;STARTING CHARACTER LOOP ADDRESS 

552 Boluse posods ann eine, ey, 01, SAVES 

+ ae HVT be, com Ita 

(1) 4 ? sh ;;FIRST LOCATION T CLEARED 

C1} Beda BseZS 0012100 eR PRED EU BRR REMORY LOCATION 

1) 001444 g2e706 001140 ene aSuR. “Re ; ; DONE? aie 

1) 8828 1b30e 001100 aia Vie ‘ “istace 5°. A aif 3 Bate POINTER 

C1) OO1456 012737 023624 ooco20 *’ nov #$SC pOeLOTVEC ae FOR SCOPE ROU INE 
eae 

(f 881453 815533 RB9348 BBBBS§ MOV SecRAdA Sah tVEc' “F vector FOR ERROR ROUTINE 

(1) 01500 012737 000340 000032 MOV w240, geen TvEC+e 33 CEve EL 7 

(13 901 ps 3 760 p00034 nov a$T T . RAP VECTOR FOR TRAP CALLS 

(1) 601514 137 B63 00036 MOV $340, ab YRAPVECs déver ? 

11} BBless S1Srar Bests Semaee ey CSNDR ame CE veE yt STLURE vECTO® 

‘1; O0153€ 013737 O0&762e 006754 MOV Senet SEOPCT ; LEVEL 7 END-OF -PROGRAM COUNTES 


MAINDEC-11-D2VTC-E MACY11 3011046) 31-AUG-77 09:17 PAGE 13-6 
O2VTCE.P1l 1S-JUN-77 10:41 a ara THE bonmoN TAGS _ SES 0020 


001544 012737 O01S44 001106 HOES ik Oe dal RUGRSPE a 1S 


~ 





il 
if 
(2) 1 » ¢3 VE 
(B) 13738 0 aeas,9 deetavec HH i T 
iB) 1564 6126737 1 1149 y +} SW H REGISTER 
iH i 2 Ol 2 7 17782 OO 4e mov Fat spISPLaY lied ISPLAY REGISTE 
(2) a gne 3 Re T TR CCURRED 
'B pausie coos Bc \ ahha 
DO Hi 
8) BOLE Le 001620 eH: HOV = (SP) geen eee URN 
B01 i o32 pei 901149 6SS: nov sesSeAtEes one aa? TO SOFTWARE SWR 
cB) Boi 1 O4 66S: Vv )+ StRAve ;;RESTORE ERROR VECTOR 
728 DO1640 010666 cLR igpere 
7 ry V OPE, S#IOTVEC 
731 OO ipso i ip — Rov sco S TEST FLAG 
73¢ 001662 091051 . SBEGIN :BR IF NON-ZERO 
7 00 1 é 44 T ThE 
7 001 188777 177244 18 i 
535 BoleTe ale? 77% 990004 ROV sie. at Up SLAVE 11 our 
ee 
7 00 1 737 4 000 MOV #340'6 :LOCK OUT ANY Int RRUPTS 
538 H01712 1Oa4 1 7. owe 11S: TYPE 
240 001714 020156 WHAT ;FIND OUT THE DEVICE ADDRESS 
ee fen) 
re 301728 bizea7 00124 8 (SP)+, FIRST ;SAVE THE ADDRESS 
743 0017 Te AS808 001242 Cc #160000, FIRST 
pue BOIead «ADSee> et Oe Est yF vat ip 
74S 0017 477308 S aFIRST EST IF VAL 
cue 001740 7 1244 CLR LAST 
747 001744 104401 TYPE 
74g 001 Gece? Th ;FIND OUT THE LAST ADDRESS 
74 D0 1 ) RDOC 
750 O01 1 001244 (SP)+,LAST ;SAVE LAST ADDRESS 
751 001756 177262 TST @aLAsT : TEST IF VALID 
752 00176e 012737 000006 oD0004 MOV a6, 84 
7 ed . She zecIn 
S £61556 12S: CMP og )+, (SP)+ ;ADJUST STACK FROM TIMEOUT 
? eters INVLID INVAL RE NESSAG 
533 bp 11$ tLET © SEER APR Rave BoE ay 
759 002006 013737 oO01242 001246 SBEGIN: MOV FIRST, VTNOW :LOAD INITIAL DEVICE NRODRESS 
wes QRSDA B1E7O BBIECE rsvev: poy EEA? ESRB EREUF"Brar 
5E5 00, Osa reese MOY R1, (RO)+ 
764 002026 p05 7e1 TST (RL )+ 
765 002030 010120 MOV R1. (RO)+ 
76— 002032 005721 TST (Ride 


MAINDEC-11-O2VTC-E MACYI11 30(1046) 31-AUG-77 09:17 PAGE 13-7 
DZ2VTCE.Pil 1S-JUN-77 10:41 INITIALIZE THE COMMON TAGS SES 002) 


Pee S883. BASSET ey Mane" 


769 902040 010110 MOV Ri, (RO) 


JO0e2 


MAINDEC-11-D2VTC-E MACY11 30(1046) 31-AUG-77 09:17 PAGE 14 
OZVTCE.Pil 1S-JUN-77 10:41 INITIALIZE THE boHmON TAGS _ SEG 0022 
77} 


$3 cee en Te OTERMINAL IDENTIFICATION TEST 
: &TE A TERMINAL IDENTIFICATION T 
jHevesueveusevecuuneunaensennssuseensesuonseoessinarensnsasenss 


té1 
011442 RS, AMSG ;DISPLAY HEADER 


4 
011442 ise RS, AMSG ;SEND REQUEST FOR IDENTIFICATION 


tae 
g hon 


0047 0130S2 Jsr PC, GETCHR ;GET A 4 TER etal ‘ 
Be 901330 ov __—«&R, saves fe ‘wa, 
i R PC’ GETCHR if CHAR 
IF NO INPUT 

1 001324 MOV , SAVE2 

7 013052 Jar pete A CHAR. 

R oF NO INPUT 
Vv 3 
1 001330 a1 DFe : 4 youn BIT 7 

? 1 601 BY 817 ‘ee 

335 (bo enna: He tr te -_ 

1 BEQ 108 z K 
993% 7 844853 001330 10S: 2RBe 953 SAU EY INEST TRS CHAR. 
093045 000057 001324 Bee 8’ 7, SAVE2 Este CONG CHAR. 
001011 BNE 1S iff TO ERROR 


;NOW DETERMINE WHICH VTSXX AND ITS CHARASTICS 


RO ; CLEAR age} PQINT 18. 
ee , SAVE" on iF 1,8; KNOWN VALUE 


z 
RY 
: 


001326 3$: 


eta p Rue remae | hes init SS Rue 
Bee Reemceeniinis 
- ae Ee eee on 
Z 


0057 
108760 002404 Te1B TYPEPT (RO) ia 3 ie VALID I.D.°S 
10 14 104 1S: ERROR 3 NCOR eet a) CODE 
Bi bass ratte 118: CLR RO EFAULT TO VTSOA MODE 
B13 ;HAVE NOW FOUND THE I.D. - REPORT TO mens 
Sie anata usowy pues ugar erry 40m 
B13 bosess oni aas Bea |OtC3S e bees “Tele SINTER 
818 O02236 004537 011442 JSR Re AMSG 
Bie 02242 016760 Ss: VTSOA ‘ott reRe TO” VTSXX MESSAGE 
1 002244 012737 1700 001264 13S: MOV #960. , TOTALC :L0R TOTAL CHARACTER COUNT 
855 iad pista, eae Ooi SeS HOY ie. WHO 408 tag Sea U NEWS FOR DCA TESTING 
t 
Be Ooseee B05 73 ud reget ret PK ee te 24 ies ay Are 
826 092274 006337 001264 ASL TOTALC i BRIUST "CHARACTER COUNT 
002 006337 OOlZ66 ASL VHO :ADJUST LINE COUNT 


MAINDEC-11-D2VTC-E 





MACY11 30( 1046) 


OZVTCE. pa age -~JUN-77 10:41 
062737 000014 001262 
19797 goles 001270 
i 001272 
001 
? 01368 
7 000037 001310 
ab 000403 
cl Bee 
843 Bs 011262 
Fs 328 133 000000 
E 
851 
3 
Ss 
2 og2404 ratte 
860 O0E410 J¥Ol 
Boe 1 1 
14 1 
Bea Goetes 1371 
4 1 
3 : 


cococo cD cD 
NANNY 
WOW 


74 36 016760 
75 mi Bt 70 
4 17101 
87! BI peat 
B79 Bt 7324 
880 e4Se 017405 
881 O0e4S4 017466 
88e O0e4Se 000000 





sath wagt -77 09:17 


PAGE 
TERMINAL IDENT IFICATION TEST 


A 
ADD #12. ,LASTLN 
6S: MOV VHO, VH1 
ASR VH 
Vv #14 ASTCH 
py i! oe O TEx 
#37, LASTCH 
7$: 
BR 12s 
2s: RROR 
a 118 
128: Th PC AY 
‘ 7He OGHERE 
WHERE: ste 


28 F 3 op po ee 


;LOW BYTE CONTAI THE I. 
TYPEPT: .WORD 194 A 
; 1301 ; 
7011 ; 
. 13$11 : 
Wee HS 
- 136142 : 
0 
6 
0 
;ASCII MESSAGE POINTERS 
MSGTYP: VTSOA 
VT508 
T 
via 
vest 
YVTSeM 
VTSSE 


oe 


ISTIC 
NE 
, 


FOR 


;ADJUST VALIO LINE # +40 
;LORD OTHER LINE COUNTS 


CP SSoRRCHRI? 8" 
1 gti seal pal CASE CHARACTER SET 


;;BR AND START TESTING 
;NO RESPONSE FROM UUT ADTER ASKING FOR IDENTIFY 


May 


s 
cee BBORESSING (ESC Y) + “ESC-6" + “ESC-0D” 


KE YP 


ae RE GAse CHARACTERS 


EACH KNOWN VTS?? 

101 ; VTSOA 

1 :VT COPIER 

1 ?VTSS 24. : NES COPIER‘ VTSO BASED) 
i iVT COPIER Déa VTSOH KEYPAD 
2114 VT WITH c IER 

it :VTSo WITH PRIN ER. 

1 :VTSS, 24L INES mM H COPIER(VTS2 BASED) 
:VT NO COPIER 

:VT5OB COPIER 

:vTSS COPI 

:VTSOH COPIER 

ME 

:VTSe WITH COPIER 

!VTS2 WITH PRINTER 


SEQ 0022 


MAINDEC-11-O2VTC-E MACY11 30( 1046) adie ‘yi 09:17 PAGE 14-2 
DZVTCE.Pil 1S-JUN-77 10:41 q TERMINAL IDENTIFICATION TEST SEG 0024 





Sr tT seleh-$-5-5-b-hehah-$-hoh-tah-beh-5-5-4-5-1-5-lolahahahahehahehahahahahehatel 
HARACTER 


<aRS 6 


SkTEST 2 8 FULL SCREEN OF AC 
© +s KHKSSSESKSRSSSSSESSSKSHAERRAHKKASSRASEKAASRASSAAKASRSRSSSRAEAEE 
( } 002466 000004 tSt2: SCOPE 
70 37 011442 J RS, AMSG 
BaSs59 BY33a6 mat 
Be 002476 004737 013010 JSR PC, FILLWC ;FILL SCREEN WITH A E'S 
833 o02S02 004737 011262 ISR PC, DELAY 
ege eee ne ere ae 
(3) : DATA TRANSFER PATH TEST 
; ; LlaatedeesayensSunsnsusvansecsesoassenstoeusscentssutessnsseanes 


$673; 
eis nee 011442 is RS, AMSG ;DISPLAY HEADING 
16 $13 43 001270 O0131e Vv VH1, TEMP ;SET-UP A COUNTER 


S 002524 004S37 011154 ISR RS, DTPSR SET UP BUFFER 
eoses! Be8i6c ts Tie 3 
100 100 TAL ’a’ 
34 004537 011160 J RS, DTPSRB T-UP BUFFER 
gos 40 000125 136 10 TAL ’U’ 
306 002542 000052 Se :OCTAL ’#’ 
44 737 1S: XPRNT SPLAY THIS LI 
309 eg Beess> §BAlSis bec TEA i SoreLEY out Count? 
319 002554 001373 BNE ETtP NOT COMPLETED 
gle 002556 004737 011262 JSR DELAY EST DELAY SWITCH 
1 Asaeeetinaneeensheetenstecesesbaseeerensusrennensessaneeesneee 
(3) tATEST 4 D SINGLE CHARACTER ACROSS ALL COLS. <ALL CHARACTERS» 
: ; Tae 2 (eeeteaaataaaaatcinnae ameaiaauaeaaapmapatarasitanianierunectie 
318 4 go4s 332 011442 R RS, AMSG ;DISPLAY HEADING 
316 002572 012737 OOO0040 001306 MOV #40, STCHAR ;SET-UP STARTING CHARACTER 
91 001266 001314 MOV VHO, T MeO ;LOAD COUN 
ai8 613387 001306 1S: MOV STCHA’ ? LOAD Ri= To CHARACTER 
380 002612 004737 010134 ISR PC, FTLBUE :LOAD A BUFFER WITH THAT CHARACTER 
age 002616 004737 010236 JSR PC, XPRNT ;DISPLAY A FULL LINE FROM THE BUFFER 
$24 002622 337 001314 DEC TEMPO ; DONE ? 
825 1 BNE :F INISHED 
326 011262 S C, DELAY 
92 26 137 001266 001314 MOV VHO, TEMPO 
$28 O0e642 0052 001306 2s: INC STCHAR ; UPDATE THE CHARACTER 
929 002646 023737 001310 001306 CMF LASTCH,STCHAR ;TEST FOR FINAL CHARACTER 


02 


MAINDEC-11-D2VTC-E RACYL1 3OC10M6) _31-AUG-77 09:17 PAGE 14-3 
DZVTCE.P11  1S-JUN-77 10:41 0 SINGLE CHARACTER ACROSS ALL COLS. <ALL CHARACTERS) SEG 0025 
p026s4 001354 BNE = s«18 ;BRANCH IF NOT COMPLETED 
$32 00266 004737 011262 JSR —-PC, DELAY ;TEST DELAY SWITCH 
33 Eee etter eee Tea EAs Aaa ee are Cores CALC CHARACTERS» 


4 Peserssnngquensecnnonnennsasesnsonssnssonnnssonsonsennnsonenses 
4 Bowes? 011442 ie RS, AMSG ;OISPLAY HEADING 
002672 012737 OO00040 001306 MOV #40, STCHAR ;SET-UP STARTING CHARACTER 


60870 B1370i 001508 a oe sTchan, Ri eae WaRACTER 
Bossi 81320 = dIDTH as FER AND Mot <BYTE> 


002720 004737 010236 JSR PC, XPRNT erenar A FULL LINE FROM THE BUFFER 
001314 TEMPO ; ” 

ae AE GE 8 

7 011262 5 DE AY 

737 O01 001314 MOV yo MPO. , 
44 01 2s: INC ST : YATE THE STARTING CHARACTER 
750 7 001310 001306 Cc LASTCH, STCHAR OR FINAL CHARACTER 
BNE is t BRANCH IF NOT COMPLETED 


002760 004737 Olle6e2 JSR DELAY ; TEST DELAY SWITC 
; jsevaeyaeeeenenrebueraensunsunslasiuedaguastonrarnensennsensrace 
iATE OR MOTION TES 
jHateateensuvsunnnecenecunersaeenanenaetnanenanenaxesannseesees 


764 rete SCOPE 
Bos7ee Boxsa? oLl4He isn RS, AMSG ;DISPLAY HEADING 


nr 
— 


;ROUTINE TO LOAD REFERENCE LINES FOR CURSOR MOTION TEST 
012700 OeSesé LBMT: MOV eBUFFER, RO ;LOAD * epi 


rid (ROS+ eL # 
3b Ri 


C Rie 
1 ;MO SOR DOWN 
fire BRS i Grace =| ine Ie 
Bb315e 32h pe oval i MOVE RIGHT 
oR wee Btastbin ABO Buy 
a7e0 tt MOVB 865, (RO) 4 ae. 4 
737 003126 ISR PC’ MOVRIG ;MOVE RIGHT 
72 BOOOgY MOV #64, (R + *LOAD #4 


7 MOV #377, (RO : TERM 
000420 aM LemTi :;BR TO NEXT PART 


See 
oO 
_ 

N“N 
ra 
Ee 
two 
No 
oul 
=z 
< 
D- 
— 


: 
tT 
2 
8 
8 
iG) 
— 
- 
oO 
= 
Ww 
Py 
v 
Ome 
3 


qoUue 
zuues 
que 
3 


RERERPRRRR Le ise dal AUN acer ia a ee RP ES RE RECTY 
Rows 
ee 


8 






BiG (ER BA | OT Re Te: 
pe Rie 
003126 012701 o00024 MOVRIG: MOV #20. ,R1 
13g AaezRo 000040 v #80, (ROD+ 
148 08367 Rrs sR 
1S G6ira> SERS MT IRR RELRERMY 


—e 
ses 
Ea 
Ore 
® 
a7 
Oo» 
*B 


1S: 
ae 101 MOVB #101, (RO)+ 
j 
i 000130 MOVB $130, (RO)+ 
0 001260 Bry Sertis VTSXX 
1 Q Hit , 


an os 


Be 
ee 


SEREREROBROR SARS Saas pe pepe acess 
IOOVE + 8 
; 
: 


NOW LW 
ee 
“ N 

n= 

: 
Oo 

fu 

oO 

A 
ES 
5 

s 
hh AD 
ow 
3 

+ 


Bi 
01 O05 1 C R 
o1 100374 BEC Ss 
01 112720 000130 218 MOVB #130, (RO)+ 
o1s76} 01270 nye are? 
O21 001407 001260 se BIT 354 ait 
‘ Bo tRa}+ 
5 
2, (RO)+ 


ed © 
bebe ee 


ror 
RaSay 
tse 
23 





ee ee ee ee ee a en ee ee ee ee ee ee ee ee ee ee 
aS 


Feee 


= 
ray 
o~ 
Saree 
ProEne 
: Bg 
- Ow 
tf fw 
Ww 
o 
A 
O2z20W 
3 ae 
o< << 
wo 
DaeseeeWwwewwresn 


= 


200 
Reo 


NO2 
BOSPRESE}}-O2”TE-Sun-o7 PBSYE! SOCONe? pgi-AuG-27 09:12 LEARE LAT Tdn Test 






iLSRB CF 
‘bOPr UNTIL DONE 


;LOAD R1 
;LOAD SPACES 


i OOF UNTIL DONE 


;DISPLAY THIS LINE 
; TEST DELAY SWITCH 


‘LOAD ’A’ CURSOR UP 
;LOOP UNTIL DONE 

iL vy 7 

Hhest PN TSoHi TYPE 
iCoap’ ssc: 

3L ‘EURSOR LEFT’ 
;LOOP UNTIL DONE 
;LOAD “BACKSPACE 
BR FNOT 

LOA CKSPACE 

ibpep Gouy 

: TES VTSOH TYPE 
:BR IF NOT 

;LOAD *ESC’ CURSOR DOWN 


;LOOP UNTIL DONE 

gAp CURSOR DOWN (LF) 
‘BR IF NOT 

: "x? 


'COAD *C’ CURSOR RIGHT 















BO 
1 IOCLONG) B1-RUG~27 O91 Le RSOA MOTION TEST SE6 0027 
4 


$ L TIL DONE 
ae 
: EP cuRsoR HOME 





1 

i 

1 

i » (RQ)¢ 7a 

1 "(RO)¢ 

i 7 SPLAY THIS LINE 

1 AY BE EEY 

coiztc : ‘That JF 34 HDS 

at at Bathe 

1 o1l4se , AMSG ; L. LINES 

FB 

1 c : 3 ire Tee tt tenet teeta et BACKSPACE MO BELL TEST 
{ ; [gg preerevengtnapeantanggsckananengesnmnonennneeneresnensansnenne 
4 $ 


RS, AMSG ;DISPLAY HEADING 
LAL: FER POINTER 


18: 


nove t 
bine Yo 
slil, (RO) a) Rokr 
2s: v8 ae SPACE 
¢ 1 





cerree 


i BR UNTIL DONE 


} .(RQ)¢ Coat cA FINISHED ALL TAB STOPS 
a8 i + sl LF 


> (ROD ;LORD TERM 


co 


50009 003706 = RS,LTAB ;LOAD TAB LINE 81 
JSR PC, XPRNT ;OISPLAY THIS LINE 
003706 JSR RS,LTAB ;LOAD TAB LINE se 
Rost 010236 SR PC, XPRNT ;OISPLAY THIS LINE 
oaeae 003706 SR RS,LTAB ;LOAD TAB LINE 83 
Roste 010236 * PC, XPRNT ;DISPLAY THIS LINE 
oa803 003706 = RS,LTAB ;LOAO TAB LINE 84 
004537 
000004 


010236 JSR PC, XPRNT ;DISPLAY THIS LINE 
003706 Jsn RS,LTAB ;LORO TAB LINE 8S 


oe se ba ah = Be Be ee Be Be he Bs be be Be Be he Be Phe be Bs Bo he BO De 


Pita titi RE REN RAN cs td Syd a kas aoe 
; : 
8 = 
38 
gE 
33 
m 
: 


8 


| 
‘ 
| 


MAINOEC-11-02V MACY11 3011046) 1-AUG-77 09:1 4 
OZVTCE.PLi 1§-Sun-77 10:41 t G fae, BECKSPRCE AND BELL TEST SES OO02e 


004737 010236 ISR PC, XPRNT ;OISPLAY THIS LINE 
003706 RS,LTAB ;LOAO TAB LINE #6 
(10236 SR PC, XPRNT ;DISPLAY THIS LINE 
003706 SR RS,LTAB ;LOAO TAB LINE #7 
010236 SR PC, XPRNT DISPLAY THIS LINE 
3 :NOK EXECUTE THE BACKSPACE SECTION 
i 001320 MOV WIOTH, Re : WIDTH COUNT 
¢ Re OOS WIDTH 
v 840,R1 3L E”* INTO THE LINE 
J FILpre 3L 
v WiOTH,RI 3L CHARACTER POSITIONS 
3$: e’X,(RO)¢ sL 
1 $15" (RB)s sl — CODE 
1 gt , (RO)¢ 


: As eg mone ? 
77 vB 77, (RQ) i 
B1E 35 E , Re : i $20 
ll LAY i By dai fer 
T 33 NEXT TES 
; SUBROUTINE TO LOAD THE TAB TEST ( THE BUFFER 


li Ate Rov apureeR, Re. e atte FehMesrn TER RS 
i oo« Bim & Lent 


Q 1 
000101 es: vB s 01, (Re)+ OAD THE *a’ 


ms ee a 
iBR TO 7 TAB COLUMN CHAR 


ee aes ba. | Ga 


R 
apsprattdenseuttensenezensaencbasiuansneauaneneneccnnassocsonss 





= Oe ae tn ae ae he Oe Be be he ho se Pe ae ae bw bs bs an be hs Be ee ee Bae bn aw Be ow Bs Be Pe Bo he Be he me PR Bo 


Oe ee ee ee be es Be bs hs es se 0 Be ee bw Bw Bee Be ee he Be ee he 


FESRRCCOR TERE BIEN IONS Bats seine 





th H ERASE FROM CUR 
jineneebeuasaenacuscanauscesussuceseannensescnansetaneeracsares 
1 7 O1144e 1 RS, AMSG ;DISPLAY HEADING 
: 13536 10 
1 004737 913010 ISR PC, FILLWC pik FER WITH A CHAR 
1 ; iD LAY TH 1S LINE 
i 004012 004737 o112te ISR PC , DELAY 





DO3 


-11-D2VTC-E MACY11 30(1046) 31-AUG-77 09:17 ae | th 4 
-Pll 1S-JUN-77 10:41 T10 a ERASE FROM CURSOR TO END OF LINE SEG 0029 


is 


;LORD ERASE LINE TEST INTO BUFFER 





MAT 
Ozv 
1 
i 
1 LODERL: Vv FER, RO 
i ne t “RS 3 LOAD esc 
1 a’, (RO)¢ ; LOAD 
' 004134 x VHO , 2S ;LORD C T 
$ " ) 
i - M 233. (RQ) if ERise Line cHAR 
i 1 f i sFIN ot 9 
: 3 
1 JU po0Gs 004136 Vv ., 108 . 
t 0.8 1260 TST VTSKX ; 2 Lanes 
1 as r. A HE Te ie tikes 
i ‘! 004136 10$ 8 Z. COUNT 
is & nee 
1 OC 48: Mv: ® (RO) 
i oe } , , (RO)¢ ;CURSOR RIGHT 
ig Be : 4908 
i BO 000012 VB $)2. (RO* ; SOR DOWN 
1 "s es: 
. tt 
H 000377 18: MOVB 9377, (RO)¢ ;LOAD TERM 
1 
i 004144 004737 010236 JSR PC, XPRNT ;DISPLAY THIS TEST 
i 0041S0 004737 011262 JSR PC , DELAY ; TEST DELAY SWITCH 
1 g s SFSSSSSSSSSSSSSSSHSSKSSSSSSKAFSSSHSHHERKEHSESHFHSHKALRAEKAAARHSSRLROE 
:ATEST il OF SC 


F 
ores LL ennceacennansercctsnonsceseonsceucecosaconssesseneeeses 


154 tér11: 
i D437 OL1442 it RS, AMSG ;DISPLAY HEADING 
004737 


se a se ee Be ae ee ee ae ee ae oe eb ee ee eo hs Be Be Bae ee ne ae ee Pe Bs Bs ee Be Pee Pe b= he oP 


PENH BSR IER POR BId eee tA aN SSS GER Toe Bote We Lolo bee OH Ete 


1 
1 

1 004164 013010 J PC, FILLWC F bh FER WITH A CHAR 
1 ip Y THIS LINE 

i 004170 004737 011262 JSR PC, DELAY : DELAY 

i ;LOAD ERASE SCREEN TEST INTO BUFFER 

i 004270 LODERS: MOV _, 2s ;LOAD COUNT 

1 aS gpehes™ 

i 1$: MOVE ib OAD CURSOR LEFT 

1 L Ae i L PONE 

1 004270 MOV es. 3L 

1 4$: MOV 433; { RQ) CAB ERs 

i Mov iL ASE SCREEN 








CE.Pll 
3s 


T 
1 
1 
I 





ee eee ered 5 


oO eww 


a 
i 
Ee 


Ee 


bh eh re hee 


fururu— ~ ~~ furururororuru: 


0 ee ee eh = ee se be ee 
yyy rururorurofur 
SRREERS DDH NOU Stu 


1 = FUNC) La) OO b= Bo ae pe ee 


8 


BORNE 
88 
atk 


Peay ach 
THRE HMR REY 


e 


INDEC-11-02VTC 
1S-JUN-77 


-€ 


100405 
1127 


? 


16511 


Boise 


004737 


MACY11 3011046) 


10:41 


800181 


000377 


Bi iBe8 


011442 
arta 
1144 


001312 
01lebe 


020000 
607332 


011442 


ee 


000110 
011442 


900016 
br izee 


001312 


001260 


Bese) 


001260 


OBeee7 


oo 09:17 PAGE 14-8 
os es FROM ae TO ca vibe SCREEN 


a rR (k )s B EScon, uP 


38: a g 77, (RO)¢ TERM 
es: 
58 FR RES DECAY PERT BELAY eulten 


wee sh LL AA”: 


i éTE OUPL ING 
bafiavetassegevetescnenatsenssssnesesnesesssesnensseesseesesseens 

- RS, AMSG ;DISPLAY HEADER 

Vv VH1 TEnP ;LOAD COUNTER 
1S: RS, AMSG 

TH 

P gee" 
| Se A 


titeer isk DIRECT CURSOR ADDRESS TEST. 


ac Spemenpeeyemmemnpens meyer 


tér1 
eae, AND USED AS “Xx” AND “Y" COORDINATES 
D- USER 


= ie ets YS FTE Yh ae 


IT adder ey IF cORgon “a TERMINAL 

reds tes aa Pop ae 
F “MO 

, AMSG NTIFY TEST 

833, E iL ODE 
Vv He UFFERS ; BAB 8 esti g 0.¢. A. ENABLE) 

j Pc. : TH Ese’ Y SEQUENCE 
P ars : tay Est 
ah VTSXX } F VT OH TyPE SPLAY 


Ha SCREEN son ty IDENTIFY TEST 


[i 
PAA 
~+ 
w 
~ 


Neg omy 8 reg ; cE” as FIRST VALUE 
MOV 016 UrFERS 1 r Bab, CBbE 16 Q 

J R PC. pe BELA Ars :RUN TEST WITH CODE 16 SEQUENCE 
BR ::BR TO NEXT TEST 


SEG 0030 


MAINDEC-11-O2VTC-E a" 30( 1046) 31-AUG-77 09:17 PAGE 14-9 
O2VTCE.P1l 1S-JUN-77 10 T13 k DIRECT CURSOR ADDRESS TEST SES 003i 


004462 Se iotes 024756 DCATST: a a @123456,SLONUM ;PRIME RANDOM NUMBER GENERATOR 


a HE a mm 6 ahem | Be 
; Ga Bae io 
3 Tee 0047S2 





177777 OeSebe MOV 8-1, BUFFER+4 wai 


ROONEY? 2 a 





t 

1 

1 

i 

i 

1 

1 

1 BOYS4O 

1 

, 7700 ates: ny ae %0 pore ; IGITS 

&: Bee be i Wee Ae sae ane 

1ses 001262 Buss “ ; T BE GREATER THAN S4 OR 67 

1264 74 I ; Ray 

1 Bere 6 004746 Vv ; YC INATE 

i i 004752 HOY ; of PO TER 

i ke Be OG : 

1 1 1 Q ; M NATE 

1870 DovpeD B53; 000120 o047S2 1S: APR iSETUB sRIMM LOCAT TON THOR PRINTOUT 

1578 Reape Bad353 pouese cenex: 9C8 ) COORD RORODA RUMBER 

ee Be a oe ray ae = 

1 ? CMP ’ ats Rati T 40 

1838 Badees A8AZ8S 000157 Fags Sf #157 ; . PR THAN 1S7 

1279 101364 BHI GENRX ; RAT 

is an eo 

136 1 at Meta ee “ ; , ALREADY BEEN USED” 

1 1 BMI NER ; ve 

1 Bears Heer 74 02 269 mo Y ,BUFFER+2 ;L Ne 

1 714 ii 261 Vv x FER+3 :L 

Hees Gzee [Us a ae or SuBe ePAEEP son 

1e90 7 543 O1 36 928 PC. XPRNT : UTE IN nf CHARACTER 

i 23 73 005337 4754 DEC OVRAL ;Rex TUR NO. OF | SOGF DINATES 

teas Bins BBB! me Fe yee nts 

BES Be et 

i536 20M 756 Oeelct 030065 oso0sS aS ctes: Oascrt \VTSO-PLUS-DIRECT-CURSOR-ADDRESSING-TEST® \ 
4764 S14 OeeSe3 044504 


MAINDEC-11-D2VTC-E MACY11 3011046) 31-AUG-77 09:17 PAGE 14-10 


OZVTCE.P11 1S-JUN-77 10:41 113 Ke DIRECT CURSOR ADDRESS TEST SEG 0032 
00477; - 
2 Bei 
1300 044507 LASCII \-DIGITAL-EQUIPMENT-CORP. -MAYNARD-MA. -\'TSO 
o8 JS ' 
- 





MSGTND: 
"BRL le er TNe TERMINALS WILL RUN THIS TEST 
i sESREGESHROGEONHEOUEOSHSSODOGEEOBSESHEGODEEUSSOOESSASGONes4e6 


TEST 14 L HOLD SCREEN T 
+ SRSSFKSRSKSHSSSSSSEKSSSSHSKELSSKESHSSSHSSHSESKSKHSSHSSSSRHSSSASSESS OS 


—— 


elas dae 


288 sas stots 
frat tratt tT 


788008 
1 
$6714: 
6 0656 . AXOFF 
0660 CLR XOF FRC SCRA SOFT FLAG 
011442 ry RS, AMSG :OISPL 

6 FB 

RS, AMSG ; CR-LF 


1563 BBE188 
1 1 

1 Us 

1 1 

1 1 

1 1 

130 737 001332 TST T ; TEST IF IN N W.F, MODE 

1313 i§8 eit BNE we Tee Hi Fw! MODE 

131 134 737 001260 TST VTSxx T iF, ie LINE 

1314 1 4 as TS 1S 12 LINE 

1315 14 011442 RS, AMSG i: Cplay MESSAGE 

i313 1 14007 2 

1319 Obeiee b1S737 poodeL Bioees roy sat xOFF BR NAB 

1360 164 7 Bites JSR Re: AM ie Ret "sch ROLL TH THE SCREEN 

1321 1 GOHDSC ; 

1323 00517 737 010660 TST KOFFRC ST IF x aa SENSED 

1364 Be 158 ahah BNE rer at IF SENSE 

1326 oO0S200 104002 ERROR E E HOLD SCREEN MODE FAILED TO 
1327 i ANH IT THE Sc REEN FROM SCROLLING 
i NDING ” ” 

1 7 : R XONR :CLEAR SOFT FLAG 

1334 ibe - th XO PF GR " 

1338 005212 012737 900001 010656 mov a} » BXOFF 

1334 238 sus : :DISABLE HOLD SCREEN MODE 

1336 O0S226 004537 011442 JSR RS, AMSG 

ie 00S232 016474 CRLFA ;TRY SCROLLING THE SCREEN 

i 005234 005737 9010662 TST XONRC :TEST SOFT FLAG (X-ON) 

1340 90Se4o 001901 BNE 2g :BR IF SENSED 


03 





MAINDEC-11-D2VTC-E MACYL1 30(104%6) 31-AUG-77 09:17 PAGE 14-11 
DZVTCE.P11 1S-JUN-77 10:41 T14 L HOLD SCREEN TEST 
oose42 104002 ERROR 2 ;01 OLO S N MODE FAILED TO ENABL 
iM PTE ee ERTL Be SENDING AN PRoBNE 
: oose44 o04737 011262 2s: JSR PC, DELAY ;PROGRAM DELAY 
1 ‘ Lee eee nett eect GRAPHICS MODE AND REV. LINE FEED 
(3) i eTES M TEST GRAPHICS MODE AND REV. LINE FEED 
‘ae Safasepepagenrenseinetionrstrerne oes ee teen aie 
4 
1348 001000 001260 IT 8 , VTSXX ;IS_UNIT_V 
1349 chore! tp .UH bey GRAPHICS AND REV. LINE FEED 
1 COPTST NO-GO CHECK FOR ZOP TER 
: 1 GRPHST: Hoy s RY “ 
1336 1144 1S: - , AMSG ;HOME THE CURSOR AND CLEAR THE SCREEN. 
: 4 011442 J os RS, AMSG ;DISPLAY TEST MESSAGE 
i 011442 Z RS, AMSG sENTER GRAPHICS MODE. 
i 001314 we #37. , TEMPO T UP 9 XMIT 780 ,RINES 
1 : : RW c 
i in Me a * pghewehas: 
1 011442 R NE FEED AND 
1 VLF TURN 
1 Cc RY FER COUNT 
1364 001314 3S: ¢ TEMPO 
Be be oe 
i 011442 SR oor , AMSG S-EXIT GRAPHICS MODE 
1368 011262 sevens SR PC, DELAY sAND GO CHECK DELAY 
C4) 4 | Jecqbeneuonenepensnssversesseuenenopegenpsessencnnsosesnonsens 
(3) i eTE N COPIER - AUTO COPY TEST 
+e; igreaee gear cnemnateearenecsenorereeee anne inane 
1370 040000 001260 Bi gBIT14, VISKX ie ne COPIER is AVAILABLE 
1392 4 3$ Ne PRNTST 0 PIER TESTS 
1378 Boe 3d5 173532 2$: ss 8 IT11, aSWR lr IF petit cbete SEoh EArt H IS SET 
1375 oo2000 173522 IT #BIT10, aSWR VE SWITCH is SET 
1376 BEG e eee or esire T ori ER TESTING 
i 001274 rsTB TCNT § RE 10 TES 
1378 001250 001274 MOV Ber, PRTCNT cee ae rORIER COPIER 
138¢ 434 004537 011442 6S: JSR RS,AMSG 
1 440 O14] 1 M323 ; DISPLAY ADER 
1 442 Bowe 011442 ISR RS, AMSG !ENABLE AUTO-COPY 
1384 020054 GOAPMD 
138° 4 013737 001266 001314 MOV VHO, TEMPO ;LOAD A EXECUTION COUNT 
1385 4 12701 OO0101 MOV 410} gt LOAD A CHARACTER 
1388 462 O04 910134 JSR “etL Bue LOAD CHARACTER INTO BUFFER 
1389 005466 012737 600001 ol0es4 is: MOV st x 
129C 005474 004737 019236 ISR pc’ XPRNT- :DISPLAY IT 


MAINOEC-11-02VTC-E 


OZVTCE.Pill 1S-JUN-77 
1 o0ossoo 004737 
1 337 
1 
1 
1 
1 
1 
1 
1 


SCRRPERE RO Seka TERS 


D2 B= Be hs he Be ee ho Be he 


Dat bs be Be Bae Be be Be Be Be he Be ho ee he Be 


SELES ELSELEnm~~£LS SESS ELSES EELS ELL LAs 


QRREORE BROS SVR PON OwwNeu ew 


= bb = 


MACY11 30/1046) 
10:41 


011262 
001314 


Bisse 


011262 


010654 


011442 
013010 


Bre 


011262 


010654 


011442 


001270 
011154 


001312 


011160 


. BbrSie 


veer 010654 
01144 


011262 


011442 
poogso 


14 


IQ3 


31-AUG-77 09:17 PAGE 14-12 
Tl6 N COPIER - AUTO COPY TEST 
ISR PC, DELAY ;PROGRAM DELAY 
C TEMPO sEINESHED ? 
38 NOT 


: Horton 
; R RS, AMSG ;OISABLE AUTO-COPY 
PC, DELAY ;ANOTHER DELAY 


ff SSASSSASSHSLERESSELAELLSSSSSLSALSHHHEAKEAHSHARAEAASHHRRLEE EEE SS 
:&TEST 17 COPIER - FULL SCREEN OF A CHARACTER 
+ +s SSRSSSSSSKSKSSSSSSSSKSSSSSSASKSKSKSKSAKHRERHHSSSRESSRHSRARARE ESS 


teri? 
1§: i RS, AMSG ;DISPLAY HEADER 
J PC, FILLWC F BUFF R WITH CHAR 
TOTS. Y rf 
MOV 81. XOFFOK sALLOW XOFF 
ESeANT RS. AMSG :COPY INST 
$ R PC, DELAY 


<ALL CHARACTERS: 


5p RAASASSSSSLSSSLKAASHSELAAAAELAESSSEKAKHSLLAAEAAHRHSLARARKAAE RE LE ES 
:#TEST 20 S COPIER - DATA PATH TEST 
ee ee eae ee 

58 RS, AMSG sDISPLAY HEADING 

MOV VH1, TEMP ;SET-UP A COUNTER 

JSR RS, OTPSR :SET-UP BUFFER 

: TAL ie Be) 
ie RS, DTPSRB ‘Oe TAUP. BUFFER 
ies BRT AY 'U 
;OCTAL *#° 
1$: JSR PC XPRNT : DISPLAY THIS LINE 
Cc TEMP :COMPLETED FULL COUNT? 

BNE i$ :BRANCH IF NOT COMPLETED 

MOV #1, XOFF OK 

JSR RS’ AMSG : 

GOPRNT ;COPY INST 

JSR PC, DELAY :TEST DELAY SWITCH 
5 LSSAASELLALALESSLESLELSALLLALLSLLLAKAHEARE RELA HHLHARALLAR KE REEL LES 
t&TEST 21 COPIER - SINGLE CHARACTER ACROSS ALL COLS. 
+s PERKSSSLKEKSASESSRSRSSSKRSRKKKSSAKSAKSAAKSARHSERRERKRRKHEKSRRRAEE 
tér21: SCOPE 

Me RS, AMSG sDISPLAY HEADING 

MOV a4 » STCHAR ;SET-UP STARTING CHARACTER 

MOV VHI pre? 
1$: MOV STCHAR, Ri ;LOAD Rl= TO CHARACTER 

JSR Pc. FILBUF LOAD A BUFFER WITH THAT CHARACTER 

yok PC XPRN D SPLAY A FULL LINE FROM THE BUFFER 

BEC TEMPO : DONE 


SES 0034 


oe a 


5 


Wt 


EEEELE ES EO, 4 


be SF 3 


~ ££ E 
we ~~ fUEe 3 


££ £~- 
wn 
UP 3 


idl 


EtREE 


e 


bb 0 bb Ob PB PB Pb Po bo bP he 
vs) 


Sass a ae 
Bee NOM ZONN-S 


N 
wo 


R28 


i] 
W 


RE 


ed ed ed ee ed et ee 
StL 


@ 
“N 


03 





cs 11-D2ZvTC-E MACY11 30(104%6) 31-AUG-77 09:17 PAGE 14-13 
1S-JUN-77 10:41 T21 Q COPIER - tS INGLE CHARACTER ACROSS ALL COLS. <ALL CHARACTERS: SE 
yy MOV VHO 0 
BoAges Hoy #1 KOEEOR ;ALLOW XOFF 
JSR . , AMSG 
3S: ie STCHAR iD 
001306 MP LASTCH, STCHAR i HARACT ER 
ige i on hore COMPLE E 
3 , AMSG ; 
CRLFA-2 
010654 MOV 81, XOEFOK neue XOFF 
JSR * AMSG ENE NS 
PC, DELAY ;TEST DELAY SWITCH 
See eee eee eee STER ~ ROTATING CHARACTERS ACROSS ALL C 
i eTES R COPIER - ROTATING CHARACTERS ACROSS ALL COLS. ‘ALL CHARACTERS» 
hk. IE, EO IB iE a Bc scartet A vee Moc eB 
BBER12 BaGDRs or 
1 ° 7 o1144e2 RS, AMSG ;DISPLAY HEADING 
127 0 001306 MOV TCHAR ;SET-UP STARTING CHARACTER 
13737 1 001314 MOV vi MPO : 
13701 1 1S: Vv ST Rye :LOAD R1=TO CHARACTER 
7 010170 J RS,LIC’. LOR A FER eR BRIN WITH 
1 Leal WIOTH Cc AND WW DTH <BYTE> 
010236 J PC, XPRNT i DISPLAY A PULE LINE FROM THE BUFFER 
if 1314 TEMPO :DONE ” 
1 001314 MOV VHO, TEMPO 
13732 erated 010654 MOV 6f KOFFOK 
011442 JSR RS’ AMSG 
ibe Bose 1 3s face STCHAR P Br INS Ss a SHBRAC TER 
le 8 
rested 5 1398 001306 ins Paster. STCHAR 4 oc FoR FRAC c 
006114 1347 BNE is H IF NOT COMPLETED 
este 164 2 rendie 2B ra 2 vecoanens ; 
O06 16s 012737 000001 010654 MOV #1, XOFFOK eae 2 XOFF 
9061 7 011442 ISR * AMSG iEpS NST 
136 017 GOPRNT 
006140 004737 O11262 JSR PC, DELAY ;TEST DELAY SWITCH 
s PTET SS TARR ERE ER ERR R PIER ~ PERIMETER PATTERN 
ikTE S COPIER - PERIMETER PATTERN 
jHateeeruseunactuauensecnossaasnaasssarounnansseesassnanesaeess 
006144 +éT2 SCOPE 
O06 146 004537 D11442 33k RS, AMSG ;DISPLAY HEADER 
O0e 158 012701 9001 S MOV TARTI HARACTER 
1 7 1 re ISR Bc Efi BUF i 9AD fre gout & 
006164 004737 010236 JSR XPRRY :DISPLA DONE 
170 737 38 JSR Pg xPRNT :DISPLAY 4 LINE 
74 0137 1 001312 MOV VL, TEMP ;LOAD VERT COUNT 
G2 737 0002 O0131e ADD ae. Tene : UPDATE BY 
0062106 004737 011060 1S: JSR PC'FIRLST ‘FILL FIRST AND LAST 
006214 004737 010236 JSR PC’ XPRNT :DISPLAY A LINE 


MAINDEC-11-D2VTC-E 
OZVTCE.Pil 


1383 Soeees 


Rua ONE 
Be 


FRIORME 
ou 


ee 


LUN Un 


Ww 
N 


1S-JUN-77 


7 
1371 





i 
i4 
14 
14 
14 
14 
1497 
14 
14 
(3) 
(3) 
(2) 
1 
1 
1 
1 
1504 
1 
1 
1 
1 
1 
1510 
Be 
181 2737 
1315 006334 17235 
His Bie Biicas 
1 18 
a 
(3) 
(2) O06344 


MACY11 30( 1046) 


10:41 
001312 


. 


1442 
011262 


011442 


006616 
011442 


ar N2 


011262 


002000 
006644 
011442 
011442 
000040 


B1bi78 
000001 
00186 


001306 
011442 


010654 


006314 


0106S4 


001260 


001306 


010654 


001310 


31-AUG-77 09:17 PAGE 1 
Te3 Ss COPIER - PERIMETER PATTERN 


DEC 
BNE 
98x 


MOV 


T 
JSR 


+ tg 
‘E 
Bevel aur 
PC) XPRNT 
OK 


PC, DELAY 


;DONE ” 


L008 IAEA Pe 


ISPLAY A LINE 


;COPY SCREEN 


Teer age ea TRA ER ER OOTER ~ DISCLAIMER STATEMENT 


iaTe 


- DISCLAIMER STATEMENT 


jseeevneeneuauscuseuaunsracnsesensesnenasseeueaenonsnnarnss sees 


tét2u: 
m8e1 
CLR 
1S: MOV 
Q 


10S: MTEXTO 
T 


es: MOV . 
JSR 
OPRNT 

PRNTST: 


RS, AMSG 


AMSG 
4+ 


-—_— 


81, XOFFOK 
"AMSG 


PC, DELAY 


RY 
pmo: , 108 
R 
2 


;DISPLAY HEADER 
ibe*De "oon NTER 
:DISPLAY COPYRIGHT 
;UPDATE POINTER 
ENABLE XOFF 

c 


COPY SCREEN 


;TRY PRINTER TESTS 


WTTTTITTTTITITITT TTT TTTTTitiTiiiiiiitiitiililiteLUL LL LLL 


TER CONTROLLER MODE TEST 


U PRIN 
Ue Oe Re ee 


hits 


“ 


1S: 


es: MOV 


EXPNTM 


| lige » WTSXX 


RS, AMSG 

RS, AMSG 

840 STCHAR 

BECHAR, Ri 

#1, XOFFOK 

PC’ XPRNT 

STCHAR 

STCHAR, LASTCH 
AMSG 


i UNIT r IPPEO WITH PRINTER. 
iy S159" ree 


{DISPLAY ADER 

;ENABLE PRINTER CONTROLLER MODE. 
;LOAD INITIAL CHAR. 

;BUILD A 132 COL. LINE. 

5A Oe ory son PROTOCOL 


:p1ee “ist CHAR. 
HTSSUED 32 LINES? 


:NO= 
veS= SABLE PRINTER 
i CONTROLLER MODE . 


SEG 0036 


LO3 


MAINDEC-11-D2vVTC-€ MACYI11 30(104%6) 31-AUG-77 09:17 PAGE 14-15 
DZVTCE.P11 1S-JUN-77 10:41 Tes U PRINTER CONTROLLER MODE TEST SEQ 0037 

: 0064S2 004737 011262 JSR PC, DELAY ;TEST DELAY SWITCH AND EXIT. 

is”? $3 a ae ee eee 
(3) an HRRSRGESPS SSE RFHRAKASHARSKKHHHESHAREKRHSHERHERESHRAEKSEREHEHRAE SS 

16&) 006456 900004 tSt26: SCOPE 

i 42 

154 7 44 RS, AM ; AY PRINT SCREEN SA 

43 906460 904537 011442 JSR S, AMSG DISPL INT SCREEN MESSAGE 

i a 006466 004737 013010 JSR PC, FILLWC ;FILL THE SCREEN WITH E 

154 47 2737 0001 010654 Vv #1, XOFFOK ; XOFF/XON PROTOCOL 

1398 Bo506 53 pegs isk Re: Anse Beat SCE 

i 17 RNT 

1852 006506 004737 011262 ISR PC, DELAY ;TEST DELAY SWITCH. 

15S4 se SHSKESSSKSSAKSSSSKSSKRKSSAESSHKASAAKKAAARKAKHKASKRSERARKRARARARALAE 
(3) ;#TEST 27 PRINT T 
(3) * +s SSFKKAKSKSRESEASRHSSREKESERESKASERKSSSRESHSRAKSRSLHARRRAE RAKED S 

if ) 006512 o0D0004 t$T27: SCOPE 

ise fheesd BINEES Os ne HSE oe asc piset a HERDER 

1 7 o1144e J RS, AMSG : E AUTO-PRINT 

1559 006526 O20054 GOARPMD 

1 1 001314 MOV VHO, TEMPO iL A CUTION COUNT 

1862 Bee B12 Bf ney si0) Bi iL ORB A ENecuc ten 

1 00654, ? 34 JSR PC, tLBur :LOAD CHARACTER INTO BUFFER 

1564 46 27 O106S4 1S: MOV uh. XOF 9k 

1 7 i ISR PC’ XPRN ;DISPLAY IT 

1566 560 7 011266 JSR PC DELAY ; PROGRAM DELAY 

1 BEE I§ ‘BA }pHED 

1 000091 010654 MOV #1, XOFFOK 

: 70 7 011442 JSR RS’ ANSG ;DISABLE AUTO-PRINT 

i375 004 $3 011262 JSR PC, DELAY ;ANOTHER DELAY 

1574 bt 900137 006644 . J SEOP ;END OF PASS 

1575 56 131 DISPCH: MTEXTO 

1 76 106 MTEXT1 

1 36 MTEXT 

1 78 bE MTEXT 

1 : MTEXTY 

1 MTEXTS 

1 TEXTE 

i 6 0 NTEXTS 

tees SBeewe SBB8EE 

1586 





MO3 


MAINDEC-11-O2VTC-E MACYI1 30(1046) 31-AUG-77 09:17 PAGE 1S 
OZVTCE.P1l IS-JUN-77 10:41 T27 ial AUTO PRINT TEST SES 0038 


-SBTTL ENO OF PASS ROUTINE 


= 


(¢ ; : SRINGRERENT THE PASS NUMBER (SPRGS en procrat 
(1) te EE R 1 PASS THE PROGRAM 
(1) et 0 oe che Pee Pare ay (W pi XXXXXK 2 35 A DECIMAL NUMBER) 
(1) saTF HE ie $8 18 

iB snl 

( 4} aay SEOP: 

(3) 44 Q00004 . 

(3) 737 o01244 rst 7 LAST ; TEST cif MORE 

(3) 414. Q 1$ ; + 

i 001244 001246 53 LAST, , VTNOW ; ids te HIS S_qHE LAST ONE 
(3) 4 10 o012e% #10, VTNOW 

(3) 66 Reet v siete, WHERE 

(3) fs 14 IMP RS RT’ ;TEST NEXT ONE 

(3) 704 001100 18: TST gpAss TEST IF IF FIRST PASS 
BEE PRIOR acaoo fie Pa 

1 i I on Y cer , PASHED YP ede HEADER 
(3) 7 T WE TEST ST IF W.F. MODE 
CR Be co. i et 

(3) 0067 004737 011370 JSR PC, ADELAY :EXTRA DELAY 

(3) 006732 Oo00240 3S: NOP 

(T) 330 4 get Che Space. : : ZERO MENT THe PR paces NUMBER 
1) cap states 001100 Bic ieee | Bt No Mie} NEG. NUMBER 
(1) 4 SEOPCT: . 

(1 Boe act tesa YES 

(1) MOV C)+,a(PC)+ STORE COUNTER 

(1) 1 SENDCT: .WO 

(1) 7e6 i 1 007033 ie senonc “END PAS 

(2) 0011 MOV $P -(SP) ~ F Vv 

(3) nae Toa og eer TYP Ss B VBE Bec fal’ Sci WITH SIGN 
(1) Os78A Bpapas SGETH2: MOV EEN Fe AON SOCRESS” 

(1) 1g 4 BE SDOAGN ;BRANCH IF HIF No MONT TOR 

(1) 1 Ser HH R 

(1) 14 1 SENDAD: JS PC, (RO) He ef RONTTOR 

1} Soros Saaedp Me 

(1) 7 40 NOP :ACTLI 

(1) 7024 SDOAGN: 

(1) g00 7 IMP acP ; ; RETURN 

(1) 9 RTNAD: ORD NOW OP 

(1) 7 3872 000 SENULL: ‘Bvt sNULL CHARACTER STRING 

(1) 703 5 Od enie 042116 SENDMG: .ASCIZ 71852195 -END pasé’s 

(1) 7040 osco4d Osis 2012 

(1) 007046 000043 

1609 007050 005737 001274 NOWEOP: TST PRTCNT 


NOS 


MAINDEC-11-D2VTC-E MACYL1 30(1046) 31-AUG-77 09:17 PAGE 15-1 
DZVTCE.P1l  1S-JUN-77 10:41 END OF PASS ROUTINE SEQ 0039 
tet? r4 001274 BEke = AAP ont ) 
007062 


012737 O02e%66 oo2402 11S: MOV eTST2, WHERE 
3 SERTTL, -(SP) 


SENULL 
5 Me BE aE BE OE Se aE aE aE ab a a a a a a aa aaa aa aaa 


ob hh PR 
wu a 
Po pe 
WLW 


RS 
g 
ai 


000137 002006 


: V 
beret Psrancunnecaunnnnecdescreeaesentexeteausceseousesnenseosses 


1109 TRaERS Ry a5 780K, SP 


Tw 
ns 
oe 
= 
Oo 
N 
x 
m 
D 


712 : BR 1$ ;LOOP BACK 
; TABLE OF DEFINED CHARACTERS 
BFCHR: 


8 
n 
2 


i BrRE CODE 
CURSOR LEFT CODE 


ee 
: 


; TAB COD 
sINE FEED CODE 


0 
a 


CoD 
7 ;DELETE CODE 


£38 

(3) 

(3) 

(2) 2108 

1 ll 

1 7114 Ss 114 ;DISPLAY HEADER 

4 i OF 13082 is WSR SOC, GETCHR 

ipsd St : BF ¢" ;;BR pack@ft fot NPUT 

1626 2130 004737 011462 : JSR C,OCT CONVERT “FO TO OCTAL 
ies oor 18 113732 BiieEs Bisse Hove BED: PeeBe tBep Bidit 

1630 a 70 4s 288 its 6} 77600, R0 

te Garten poles eA 

iss Berike Sle782 oo7e7s gs: ROY, BBrcwR 1482 POINTER ase ay taeue + 
1 174 REQ :BR IF F 

1 7el (R1)+ pe <Po NTER 

i 13 BNE 

1639 607 ; 04 3s R SBF CHAR-BFCHR, R1 Fae ITER 

1 10 1iiel 164, (Ri y+, MKEAL 

1641 i 4 1 016421 MOV (R1)+;MKEAL+1 

1643 7 1 7 000040 2s NPB , #40 ro IF F abbes THAN 40 
ieue 11 b 4 y Hs, Ei +l AV PRINT as 

iba? Se 016420 Ov aC RKEAL Say A ’¢’ BEFORE CHARACTER. 
i6 7 1127 CO004O O16421 6S: MOVB #40 MKEAL+1 ;LOAD SPACE 

16 7 7 016420 MOVB RO, MKEAL s LORD SrARACT R 

ipa? ed bi Beee 4S: INC BROK : IGNORE BOUBLE CHARACTER FLAG 
1652 7 537 011442 JSR 5, AMSG !DISPLAY MESSAGE 
1653 

te 

16 

16 

16 

16 

1659 

1660 

1661 

1 

1 

1664 

1665 


. 
af 





MAT a | eet | MACY11 30: 1046) —s 09:17 Ooito Sct 
OZVTCE.Pil UN-77 10:41 T x KEY OCTAL VALUE LOOP SEG 0040 


;DEFINED CHARACTER EQUIL 


roe i ry Shige wer 
; y " bE Re TURN 
6.0.6.0, 


. .0,0,0,0 


ott zis 


+ Oe ho Be Be Oe Be es he oe he he 
Correo 





EVEN 
jteggecineveecenscescvescessessessssnasssosassssacnsssscsssssess 


~<p~ 
OBR 


~~ 


ié 


TR I ieee ane ia ee ae 


new 





er 

i 001000 OOl1260 ° avai, egiT09, VTSXXx ;1S UNIT A VTS2? 
1 921012 svs2nu. R3 :YES-SET UP FOR LOWER CASE CHAR. 
1 i ; : R ;NO-SET UP FOR UPPER CASE CHAR. 
is & ae Sey. 
if as 1144, : ; ;DISPLAY HEADER 
1 we (R ee Re 7 
i as 001000 001260 itoa VTSXx hore acy S TPBER : 
1 we O1144e2 , AMSG i Mgcuse vts2 Rout The Seance ; 
i te 

1144, 1$: . 
} 0 2 Yn Ra AMSG jos 
i 011560 2s: Tk? PC, TSTROW + OE CR tHE ROW 
i 8: v (R3)+,R2 OAD ROW s 
i O11442 Sk RS, AMSG ‘ENO ROW 
170 011560 Tok PC, TSTROW ;CHECK 2ND ROW 
1711 1 C: Vv (R3)¢,R2 
1716 001000 001260 T P 1104S 1sxx iUNtY BV 
i313 4c 011442 AMSG iRGnuse UB vTS2 AS eesace. me 
i715 OO7ESE 015043 Mk BO2 me 


MAI 
D2vT 


NNNNNNNSINNNNSINNSN 


Os Bs ss be ed = ee Bs ee Be ae bs Bo bn Be Bs Be Be Be ee Bo Be Be Be be ee Be Be Pe Bw Pe Be Be ee he ee BD oe ee BO Oe bo eh Pee 


C-11-02vV 
-Pil 





1§-$un-77 


MACY1I 
10:41 


011442 
011560 


011442 
011560 


11 
1144 


011560 
011442 


001000 
011442 


011442 


BLISS 


011442 


001000 
011442 


011442 


Bias 


011442 


001000 
011442 


30‘ 1046) 


001260 


001260 


001260 


CO4 
13} AUG F709: 1 vBOARD EMARACTER TEST 


i$: FER RE anse 
MK 


es: 1 PC, TSTROW 


R3)+,Re 
RS argc 
PC, TSTROW 

OWS 
Js Re onRee 
woe PC, TSTROW 
; TEST THE “LEFT"-SHIFT KEY 


D: Jse RS, AMSG 
Vv 
i pel , VTSXX 
18: Rep Ra AMSG 


es: ie RE‘ Ans TeTRom 


; TEST THE “RIGHT-SHIFT™ KEY 


E: 
(R 
4 (ea VTSXX 
, AMSG 


18: a RE ansc 
= it ga 


Ke) 
; TEST THE CONTROL MODE 


F: JSR RS, AMSG 
MBH 
MOV (R3)+,R2 
My ( pamestene 
R , AMSG 
MKBBe 
BP 2s 


;CHECK ROW 3 
;LOAD ROW 8 


;CHECK ROW 4 


;CHECK ROW 5S 


;DEPRESS THE “LEFT-SHIFT™ KEY 


1080 8 ROW | SHIFTED TABLE 
ae etceteebae 


; TEST ROW i 


; TEST THE R 
RELEASE THe SHIFT KEY 


;SET THE “RIGHT-SHIFT” KEY 


uote Macys POINTER 
Tecue vee Ce ROL Shes sexeenre- 


; TEST THE ROW AGAIN WITH THE RIGHT-SHIFT SEY 
;RELEASE SKIFT KEY 


;SET CTRL 
LORD — CTRL TABLE 


° 
tee Y inate R CASE KEYBOARD. 
:ISSUE V ¥E> ROW] MESSAGE. 


SEG 0041 


MAINDEC-11-O2VTC-€ MACY11 30(1046) 31-AUG-77 09:17 PAGE 15-4 


DZ2VTCE.P1l 1S-JUN-?7 10:41 731 Y KEYBOARD CHARACTER TEST SEG 0042 
1338 gg » 011442 1S: As RS, AMSG 
‘7c 007754 004737 011560 2s: JSR PC, TSTROW ;TEST THE ROW 
177 :KEYPAO TEST FOR VTSOH AND vTS2 
t 907760 010000 001260 T @B1T12, VTSXx SOM EXTRA KEYPAD? 
1 14% KRBOON iN INO pT es? 
i 011442 , AMSG EST 
1 011442 " RS, AMSG ; TYPE INSTRUCTIONS 
i i anere TAB, Re aeT, T gfOINTER 
1 10014 1 001260 & VTSXx 
i i 4 aa 
1 1 011442 , AMSG EST 
1 1 1 MKBS2 
178, te ie 011442 Rare RS,AMSG ome INSTRUCTIONS 
i {Boat 011442 RS, AMSG ;ENTER ALT-MODE 
1 1 3 4 ie 
1 1 921660 BAKPTAB, R2 i SET A POINTER 
i i ' Z ? B1iase hy tEXIT ALT- RODE 
15a BibBes BB Yeas 
i 73 ; COMPLET one OF KEYBOARD-KEYPAD TEST 
iB; 815850 Breses 011442 KRBDON: J RS, AMSG ;ENO OF KEYBOARD TEST 
l 1007. 1 007404 J KRBTST LOOP 
im” ; 7 sjhagunsgouesconsereteorssrarszsitussseszzseneracsecessacanearens 
Tf f+ LE A. A, ._, ae 
(2) 010076 oD0004 tere: 
1 1 190 27 9013 Me nov Bg TACK Sp 
1 101 1144 J , AMSG sDISPLAY HEADER 
i idiio Oi64 MKEH 
isos BiStie 7 013052 1S: isp ty , GETCHR ;GET CHARACTER 
181 101 il 171160 MOVB avToe sLOAD THE CHARACTER 
1811 O101 1 171152 2s: TSTB av vtos i, :WAIT FOR DONE 
isig gigis0 joba76 ge 
i : 101 6 R I ;LOOP BACK 
;818 ;LOAD A SINGLE CHARACTER ACROSS THE SCREEN WIDTH 
1820 : 
1821 010124 013702 001320 FILBUF: MOV WIOTH ;LOAD WIDTH VALUE 
1 010140 0127 Se FILBFB: MOV eBUFFER, RO :SET-UP BUFFER POINTER 
1823 O10144 11 01 MOV ai, ( O}+ 3L ’cR’ 
i 101 1127. 0012 nove gle, (RO)+ : 9 ae ’ 
1 10154 18 FILBFA: nov RL, (RO)+ i§ V ,CHARACTER IN THE BUFFER 
1 101 C R :FIN SHED? 
1827 O10160 001375 BNE FILBFA !BRANCH IF NOT COMPLETED 


SE REREE RARE AS Cid GLUT Ua Pees S BERET era ae 


YQNOOOOOOOOOOOOOOOOOOOO00O00000000000 


Ot ee ss ee = ee ee ee ee ee Be ee be a be ee he he he he ee hs he Be he he ee he ee a) ~ 
ee ee ee ee ee ee ee ee Be ee be be Be he ee 


Ww 


EQ4 


C-11-O02VTC-€ MACY11 30(1046) 31-AUG-77 09:17 PAGE 15-5 
Pil 1S-JUN-77 10:41 SEG 0042 


a pioise Ade229 000377 neve ry i 080 TERM. 
9 SoTNREEST le TAL AREER ME SOREN OT 


10170 0127) o2s2s6 LIC: FER,RO ; SET-UP FER POINTER 

ls Hee sna mikes: aad 
’ : 
8 (RO) + H el dg 

1 1101 LICA: Rove R1, O04 ; A CHARACTER IN THE BUFFER 

1 : 1 Ng ; 3 HE CHARACTER 

i 001310 LR TCH, Rl : 4, 

1 000040 v 840, Ri >MAKE A CHARACTER 

1 LICB: Bey ; Che neht COUNT 

1 OEE NeH If NOT COMPLETED 

: rt sats 000377 : TE 


Be 499. no 


Bit 


;OCISPLAY SUBROUTINE 
T; FER,RO 
TA: rey, evant 


¥ 
a 


HPEEY’ aERov' ER POINTER 


ice. 


ep 


Bas 
Oe46 
Beg 
a, 104001 ERR 1 ERROR FLAG SET ON TRANSMITTER STATUS 
i 1 XPRNTB: MO Co), Ri - 
Ose é 000033 Ss: Ne a33,R1 beie ge #E¢ 
010664 NC ANESC ET SOFT FLAG 
010664 3$: LR ANESC enon SOFT FLAG 
170774 4§: MOV Ri $vT08 it CHAR 
10 170762 TST avt 5 its T Beeb 
14 i XPRNTA i iF cL BARE 
1€ 010664 5 S EST 1 


% 





7m 





nn 


XP’ 
eye 013124 Ses: MOV TI ee 
T 


1 ab5q 2s: iste e ae {NPUT FLAG 





t 
Js 
a $s 
a3 013126 3 ME2 
013124 c f MEL ; DELAY 
R Iron Ss REPORT ERROR 
010666 53S: rst a ete CHARACTERS ” 
[7508s Selle SH tn mm 
04 booBes 001126 cMe BXON, ° bd 90 fee T FOR X ON 
0414 019662 INC oe RC ae FLAG 


MAINDEC-11-O2VTC-E 





i 


SORA PORO SRE OO 


PEER PRE 


PLU FRM 
QS 
R 


DZ2VTCE.P11 1S-JUN-77 10:41 
1 1 7 
ie te 09749 000023 
1 
ie a> BREE 
1 1 7. 
1 1 5 1 
1 1 
: i 7. 000000 
1 1 1 170%4%e 
1 1 td 
1 1 7 
1 1 737 ll 
1351 Oideie Bie7e7 oon 
1 1 7. Sarge 
' 010S3e2 1016 
1 010S34 
et 4 te 
1393 O1 uy 
1911 1 
121¢ 010564 
131 
1914 Ol 
1915 10574 
1218 1 
191 1 
1918 1 
1919 1 
1 1 
1 1061 
1 
1 
1 
1 
1 
1 
1 
l 
1 
l 
1 
1 
1 
1 
1 
1 
1 
1 


wo 
W 
0 


MACY11 30( 1046) 


001126 


010706 


31-AUG-77 09:17 PAGE 1S-6 


XPRNTA 
sos: aXxOFF , SBODAT 


one 
a? 
60S: er #Q, SGODAT 
518: a 

RS deseo 
BE igaPilon 


;"\" OR LOOP EXIT 


MOV ry FINDTA 
16S: &LR x 
LR XOFF 
CLR h 
JMP INDO 
13S: TST IGNORE 
pne 1S$ 
RROR 4 
1Ss NOP 
NOP 
NOP 
JMP XPRNTA 
:"7" OR STANDARD EXIT 
14§ CLR LOOP 
MOV 1 alia 
IMP 16 
sNORMAL EXIT 
1$: CLR XOF F OK 
LR IGNORE 
CLR XOFFBR 
RTS C 
OP: 8 
XOF FBR: 
KXOFFOK: O 
AKXOFF: O 


;START AGAIN 
; TEST FOR X OFF 
;8R IF NOT 


;XOFF ENABLED ” 
hie OFF SOFT FLAG 
BR BACK 


Phd SHEE 





‘BR IF NOT 


, 
. 
, 
ee 
a 
. 
a 
, 
, 


;SET SOFT FLAG 
; SETUP MESSAGE 


; IGNORE INPUT CHARACTER 
; UNEXPECTED OR INCORRECT INPUT FLAG 


;SETUP MESSAGE 


;EXIT 


SES 0044 


MAINDEC-11-O2VTC-E 


OZVTCE.Pli 


as 
Fae 


4 as ERTS Fe 


ddewreatie = 


ee ee ee ee ee 


St 6 a 


O00000 


RE 
ws 


BS 


jalel=] 


0 + = = bb ob 0 be be Be Bs ee Be Be pe Be he Bs Bm he bo Pe Ps Be Be he Be Be hs he he Be Oe Be es = Bs Ph Oo Be 
ee es 
oor 


Brae kit il BERET PRR 


OOHOOOOOOOOOOOOOOO0O00000000 


a eh ee 
= ee ee 


ROAST SSR OREO INS 


1S-JUN-77 


D160 01077 
000170 01077 


002044 
002470 





MACY11 30: 1046) 
10:41 





6 
6 


001106 


31-AUG-77 09:17 PAGE 1 


age f 
IGNORE : 
éRB THE 


FINDOT: MOV 
FINOTA: 


GO4 
5-7 


;WHEN SET IGNORE KEYBOARD FLAGS 


HESIede % 


a 

F 

PNBATe 
8177740,R0 
. » STSTNM 
p CH(RO) 
NOA 


OSPCH(RO) , SLPADR 


@DSPCH(RO! 


; SUBTEST DISPATCH TABLE 


DOSPCH: vataeg 


A444 494994 49 4 4 4 ttt tts 
UNUIUIVINUNINININUILN MIMI MU NUT 
AAA tt tt tt tt tt tt ti 
HHH SHE Hee Fees sees 


rururururuororororofuoru 


;ERROR ASK AGAIN 


meet FOR NUMBER 
; TEST FOR OTHERS 
;MAKE 0-32 

;LOAD THAT TEST s 


ies: TF aR de NOT 


*LOAD LOOP ADDRESS 
:G0 TO THAT TEST 


SES OO4S 





MAINDEC-11-D2VTC-E MACY11 30(1046) 31-AUG-77 09:17 PAGE 15-8 
DZ2VTCE.P1 1S-JUN-77 10:41 SEG COME 
ie ; SUBROUTINE TO LOAD COPIER TEST 
¢ 
1 11060 FIRLST: MOV eBUFFER, RO 
1 B11 060 MOV #15, (ROS+ ;LOAD CR 
11970 ay #1 , (RQ)+ ;LOAD LF 
11074 e’E' (RO) 
11138 ey e’—, (RO)+ 
111 v a’E | (RO)+ 
11110 MOV WIOtH, Re ;LOAD WIDTH 
1 4 YH, Re 
He 18: M va B30, (RO)+ ; A SPACE 
2009 O111 BPL i$ :BR UNTIL DONE 
e010 ill nove 8’E, (RO)+ 
11 O111 M BE’ (RO)+ 
gole 1114, MOV #’E' (RO)+ ;LOA 80 TH 
1 11146 MOV #377, (RO) ‘LOB RM 
18 0111Se RTS PC :EXI 
18 ; SUBROUTINE FOR THE DATA PATH TEST 
soig pitied pis 1 =, OTPeRa nov 1 ark Teale T FIRST CHARACTER 
11162 O1 * MOV ( 32 Re i BET SECBnO HARRSC TER 
1 11168 001320 Vv WIOTH,R3 -SET THE WIDTH 
S Olive 1189 1 Rove «815, (RO) : DENTE BY @ 
20s 011176 118760 leet nove e138: (RB)s LOR Ce 
11 110120 OTPSRA: MO R1, tO¢ ; 
eee 011604 abe 0 nOVB Re, (0)+ 
saSe 611508 1 q a 0 PSRA 
2029 Olleie 112710 000377 MOVE 8377, (RO) ;LOAD TERM 
2030 011216 RTS RS 
28 ;SUBROUTINE TO LOAD BUFFER WITH GRAPHICS CHARACTERS 
11 127 025256 GBBUF: MOV #BUFFER, RO sL FER ADDRESS 
shee S1i8e) Sere? SERIE roy SRUETRT-RO L988 PUTTER, MOPARS 
20 011 010402 MOV RY, Re 7LO FER COUNT 
20. O11 110120 1S: MOVB R1’ (RO)+ HTN RT A . IN THE BUFFER 
2038 O11 1 INC R1 : MENT ' 
2038 0112836 ige7O1 000177 cHPe 8177,R A END OF GRAPHICS STRING? 
2041 O11e44 012701 000136 MOV #136,R1 : YES- ESET T TO 1ST GRAPH. CHAR. 
2042 O11 005302 2s: DEC Re i DECRE NT BUFFER COUNT. 
43 O11 Be 001367 BNE 1$ :NOT AT NOLO 
4 011254 112710 000377 MOVB 8377, (RO) tEND OF BUFFER-INSERT TERMINATOR 
e045 011260 6006207 RTS PC :AND EXIT. 
e047 ;PROGRAM DELAY ROUTINE 
2049 011262 013737 9001256 011364 DELAY: MOV SUBTST, 10% ;LOAD COUNT 
2050 011270 005037 O1136& CLR i 
2051 611274 0067327 001332 TST WETEST :TEST IF W.F. MODE 


O4 
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DZ2VTCE.P1l 1S-JUN-77 10:41 SEG 0047 
4 BEG 23 :8R IF NOT 
5828 811308 Boe25? ase 10s sCHANGE DELAY TIMER 
4y DE 
i} at eer 183 
il NOP 
il NOP 
ii Nop 
7602 2S: T #81T12, ISWR : TEST SR 
if = at ‘OR IF Set 
ll DEC 118 ! DELAY 
ree it Be ifs 
e0ee tt ae DELAY 
11354 3S: NO 
Soes O11 3e8 NOP 
076 11328 RTS PC sEXIT 
7 11364 10$: 
ies ‘a 
2075 011370 013737 001256 611436 ADELAY: MOV SUBTST, 10S 
2076 011378 905037 011840 CLR 1 
114 06237 11436 ASR 1 
20 114 7 011438 RoR 10 
1141 7 O1144 2s: DEC i 
2081 tive 011436 DEC 10$ 
e082 114 32 BPL 2g 
114 40 NOP 
2084 0114 40 NOP 
208s 0114 40 NOP 
2086 011434 RTS PC 
2087 011436 10$: 0 
208s 011440 9O00000 115: 0 
2089 
2090 
2030 sHEADER SUBROUTINE FOR VT-SO 
011442 012537 011452 AMSG: MOV (RS)+, 10S ;GET POINTER 
2094 O1144e 004537 013130 18: JSR RS, MTOB :MOVE TO BUFFER 
shar Bity 4 gacggs 01023¢ 178: SR PC, XPRNT :DISPLAY IT 
2097 011460 o00205 RTS RS :EXIT 
2092 
2099 
g100 ;OCTAL - 3 BIT CONVERSION 
2102 011462 010001 OCTAL: MOV RO,R1 ;LOAD RI 
2103 O11464 one? Ol 77770 BIC #1?7770,R1 : MASK 
2104 011470 2701 O00060 ADD y 
2105 011474 116137 011556 MOVB R1,O1Ge ;SAVE LSD 
2106 011500 01000: MOV RO'R1 
2107 011502 O06001 ROR Ri 


SEG 0046 


31-AUG-77 09:17 PAGE 15-10 
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w Wu qa OF Al -_ jou -—-Oow jou uwir-OO 
3 a 
He 
oO = | 
oa 
2 wo = = 
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= _ ie 4 - Qaoaao qqqco 
4 4 o Fg - ooo - oooc w 
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wou ae ee rT 
o00 O00 - 
wovow O0ow _ 
Soo ened enka! oO 
o00 o00 ao 
oo,y Oo0 uw ww fw Tr oy r wo wu 
é Row Tw h Pith trite tg Rusuinnooe + 
tt cow ; | A =“=TFTWUWwH KR-TWUMNwOoOoOW TFT 
tO-4 to- “4 a4 con hoe Keon ieee) AHMAD 
_ Lo) oOo Oo AQ oO000 ONo00- Qa 
rr) eeteen tase. or tw ~ nw SESABRSRASAS 
— aoa RR.K in A RRL rw 
ra) ; = ~ SNS USS HMMS ser UF 
-~ ee! oe ert Se) — onal oo 
P a » om i Tow Tr or 
SESTSANSUESES OEE GRARESEEY = ARNO PONG PRERAZ ARR P#R 
wn in Oo wo OO000 DOOR RARARARS 
dd I I Foe ed a tt BE hd hE a et te 4 
Ud ee EH tt a a a dd ed a te 
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Seer ara 
roruoruW) VNR <= 
Het eh bets tater ct tat 


ts 
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3$: oe 4 ; CHARACTER RECVD NOT EQUAL TO EXPECTED 


1s ‘BR BACK AND TEST THE CHARACTER AGAIN 
1ey8: 177600 
MASK2: 0 


TEST TO ADD aay 1 T oh CHAR 
» MASK1 





77600 011766 ITY: HOV nas 
ited: 167126 + a8 Te, aSWR : TEST SWR meseee ane 
D00200 01176 é 17, MASK1 ; 5 .eRatY en! 
b0000¢ a Q T1; aSWR oR IF hot FsReeD AITy net 
000001 167100 a8ITO, _ *TEST FOR EVEN/ODD PARITY 
011770 Bye omry wr 
ll 4S: MOVB lt :GET EXPECTED 
O147 011762 Bie ; SET a F EXPECTED 
URN :EXIT ROUTINE. 
764 Ss: CLR L T 
bt ?b2 ROVB yi et AR CHAR SAVE 
11762 20S: ROR 1008 rh ATE CHAR oy 
011764 ? ; $ ; or 
11762 218: STB 1 
? TO, aSWR fe reve 4/000 
coon warm ee Bars ven 
BCS ‘ap IF R ADY 
000200 011770 i Br ges 3 T PAR Ty BIT 
764 : g 
va 011770 55 R Se mMAaSK2 BR 7 a 
24s: 58 : ;BR TO TEST CHAR 
“ROUTINE TO TEST THE KEYPAD INPUTS 
tSTKPS: 
ney Ray = {6} i BUSH Ra oN Stack 
MOV RY; ={ 8B) $i 4 ON STACK 
MOV RS; -(5P) : Puen Re ON STACK 
e524 71S: mov #GO0D, R iP UP POINTERS TO DATA 
ces4 MOV Re Ret 
013052 72$: CALL GETCH ;GET_ INPUT 
BR 7s ; LOOP IF NON 
011772 CAL PA ITY + ADD PARITY IF pcb FR HOLD 
7 MOV O$, (R1)+ ;PUT expitp Ins 
niche ree OD :BUMP POINTER 


SES 0049 


MAT 
O2vV 


219 


futu 


rurururo 


BRR Be NR Pons 


furorurororera 


a 
vs 


rorururonury 
a 


fT 
ay 
hd 
w 


ag 
ae 


OOOO00O000000000 


Rays 


Sr 


ns 
t—~ 
RN 


Berets rareicoeeey 


bb = 


rururururoro 


ear 
fainter 
o =r 


1-D2VTC-E 

1 1S-JUN-77 
12232 121227 
1 1364 
eS Lh 
iBsee dbrcis 
747 
1 1 
a 
1 4 1 
leeb6 


er oe 
N 


os 
rm 
Ga 


oe 


3 
“N 

i ol 
Ns 


e 


= 
ri 
“ 
oo 

het be NJ ee 


aa 
S888 


MACY11 3011046) 


10:41 
000377 


012270 


025214 
O2S234 


000377 


tea 
10666 
011442 
010666 
011442 

1 

1 
011442 


C 
021777 778: MOVB 


31-AUG-77 09:17 PAGE 15-12 


CMPB (R2), #377 
BNE 


;DONE WITH KEY YET 
; I REST OF K 
; ON DELIMITER 


+ 


ifn oF Taste Yer 
KEY 


;SET DATA POINTERS 


iFOR THE KEVPRO TESTS AND RECEIVED KEY VALUES 
Vv 


? 
a 
ye tka" 
geo 73 

71§ 

738: 
MOV (SP)+,R5 
ry aS 
MOV (S5P)+'R1 
RETURN 
tSTDAT: sco0p Ai 
HOV RL RS 
75S: cnPe RL), «377 
cnPe + Maga, 
, v R Ry ,Re 
RS, AMSG 
IGNORE 


Bee, 
ie 5 SvTiB 
74S: RETURN 


b 
OV R1,-(SP) 
LR Rl 
: #40, OUT(RL) 
inte Rd #13 
BNE 7 § 
MOV (SP)+,R1 
MOVB (R4)+'RO 
CAL OCT 
MOV: BIG0, OUT 
MOV G1; OUT+1 
MOVE DIGe; OUT+2 
CMPB (R4)) #377 


‘Bet "Routine 
;COMPR EXPCTD AND RCVD 
;WE HAVE AN ERROR SOMEWHERE 


; TYPE ERROR INFPO 


;CLEAR ANY UNPREDICTED GARBAGE 


Aout ENE TO OUTPUT GOOD AND BAD KEYPAD OCTAL VALUES ON SCREEN 


;;PUSH R1 ON STACK 
;FILL AREA WITH SPACES 
;FULL YET 


;;POP STACK INTO RL 
; SETUP KEY VALUE TO CONVERT 


! 


; DELIMITER 
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OZ2VTCE.P1i 1S-JUN-77 10:41 


POrTUraruruns 
edzon~ 
ry saeKe 

2 

tof 

ay 

fu 

8 

Ww 


Se eae 


: 


(1) 

(2) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

3 BIBEEY oso 

(3) Ol 01 146 

‘s: piss 1Ree 

(3) 152 1 

(1) Oles 1 020200 
(1) Ql 000020 
(1) 1 

(1) Ol261 405 

(1) Ql 7 ooooss 
(1) Ql 

(1) Bt 1 013000 
(1) 1 7 000040 
(1) Bt 

(1) 1 001 012770 
BBG dss 

(1) Biseas Bpene 

+4 plese 000774 

(1) Bisees Bpebes 

(1) O12654 001002 

(1) 012656 105716 

(15 Ole660 100407 


che GRY), 77 
VB RS 4.0 
CALL OCTAL 
nog Big aursta 
: ti 
76S: INC 
SR ,» AMSG 


.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
iTais Routine 1S USe0 To CHANGE A ig-BIT BINARY NUMBER 10 A E-DIGI 


ee els ree a CHAN 
iHREPCACEO ITH FiresaouetT OF 


MOV NUM, -(SP) 
: : TYPDS 


STYPDS: 


-UN 
' 
~ 
v-_ 
w 
v 
— 


1S: CLR 


= 
oO 
< 

Da se De D-Vse DID 


hy 
. 
3 


es: CLR 
3$: SUB R1,R5 


4: BD ai RS 
° #29 R . 


;OUTPUT VALUES ON SCREEN 


ADING T HEROS WILL ALWAYS B 


BINARY meat ON THE STACK 


ve oe TO A BLANK 


ae ons} ie 
spades BCD DIGIT BY 1 


CL et M LEADING 0’S? 


SEG 0051 
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DZ2VTCE.P11 1S-JUN-77 10:41 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 00S2 
(1) 012662 106316 Ss: Asie (SP) $3 M809 
1) 000001 177777 Réve Thee, =1(R3) ff! “SP? tHe 
(} BE S$ BEG ‘As bi ma [i Peel ott sa AL ReapY @ DIGIT 
(1) 1 i MOVB thos +  sPUT Ht R IN THE SUTPUT B BUFFER 
tt} RYSS9R 000010 Lae , #10 i Weal! yy NOEX 
Hh RE Bie E 1 alae 
iD 7 4 ’ 6 _ i Toft, 
(1) Olgres 108766 QS: fs78 CaP) Ht THE First NON-ZERO? 
(1) Ol 1 177777 177776 MOV -1(SP),-2(R3) ue Tf THE SIGN FOR TYPING 
(1) : 4 THE T 
4 HES bee ~ ge RE ie ‘] 
3} piseis O1Seb2 MOV ( sR tt Bop Ta R 
(3) 01274% 1260} MOV (SP)+;R1i i i POP K INTO Ri 
(3) O1 0 50 MOV (5P)+’RO jiPOP ST The K INTO R 
(1) Ol i 401 013000 TYPE bark 3 THE Nun NUMBER 
(1) Ole 16666 000002 ocO00004 MOV 2(SP),4(SP) 33 Ap sUST HE STACK 
(1) 012764 5 mov (SP)+' (SP) 
(1) i 558 SOTBL: Rbdo0 ee Se een 
(1) Ol1e77e 1750 ". sole. 
(1) 615992 Bopdie 48° 
Si) 613008 SOBLK: .BLKW 4 ' ‘ 
eegi ;SUBROUTINE TO FILL THE SCREEN WITH AN CHARACTER 
22 13010 F : MOV "E.R HAR R BYTE 
33 13014 Bourg? i0138 Ae mg BoE et} UF SS Sue tin WITH CHAR 
et 1 bry? 7 i 013050 v 15 
2299 013026 012737 000001 010654 1S: MOV #1, KOFFOK B COUNT on CONTROL. 
2300 013034 004737 010236 JSR PC AXPRNT i INSURE THE LINE 
cu BSNS BPI be /, 998 UNTIL DONE 
303 013046 RTS PC : EXIT 
2304 013050 000000 10S: rs) 
5308 ; SUBROUTINE TO GET A CHARACTER FROM THE VTSO 
2308 013052 013737 001254 013124 TCHR: MOV TIMEO, TIME1 ;LOAD TIME COUNTER 
5316 013060 005037 013126 - CLR TIME2 
Sail a 4 105777 166206 1S: TsTe arts fat INPUT pees 
e313 01307 017700 662 MOV. VTIB,RO Brad 
14 0130 716 0002 . ADD #2, (SP) iY BATE SEG RN 
ate 013102 000207 RTS PC tEXIT 
c 
2317 013104 005337 013126 2s: DEC TIME2 acne 
2318 013110 001365 BNE 1$ 





RAINE CE HOST EE ere Tecutt SOC1OMG) BLBRE iE inaky $6 cecthal Ane TYPE ROUTINE exe 0083 
1311 013124 C TINE, FINISHED ? 
Bis ie Fohon i Saat rl FROn Device 
131 7 Ts 3 Ext 
1 
i 


838806 tines: 8 


;MOVE TO THE OUTPUT BUFFER 


f 
1 MTOB: Vv (RS)+, RO ik s’. 
Sic oe en. 
T 


; gire 
:BR UNTIL DONE 
;ExI 
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;ASCII MESSAGES 
TITLE: 








EH Obes = oe #2 02 oe 


ee Gece ce ce ve oe oe oe 











4 
= 





pt 

T7¢15><12>«377> 

Bos? S><12><377> 
> 


Ci ee ee ee ee ee ee ee Bo ee ee ee ee el 


AR ARAAARAAAAARAAAAAAR 
wOwvvvvvvywvwvevywe vee 


? 





3 
Rs 


ONE KEY AT S TIME <15><12>¢377> 
T THe Firko 






- ec @ 
hal 


RIT} 


*eeseeeeeeeeweeeee 
5D PD DD . 


1? 
Eun 





oe 77> 


‘ : T Y/ »« > 77: 
gS} 2 rs,s88 KEY’«15><12>«3 

. ait CTRL 

me M, ‘ the MEMETH "A KEY/<15><12)¢377) 
- Puliee . ROLL / 

. 47¢1§>¢<12><«3 

ane . 7s Je 

’ + 3 SIKEY? (15) (129 (372) 

® I 3 3 T” KEY7<15>¢12><377> 

o 


. ee] 
71,9, °r 


ee 
—s 





wwwvyvwwe eee eee eee eee 
(oleate tetetotoetoetetoeltateateatetatealste! 





Rear ee niet RERERE RRR ee ts 
Bes RK one BAAR EZ AERIAL IO 
De ee ee ee ee ee ae ae ae ae Bn Be be Be an Bs ee Bo ae ae ae ae me fs Pe ae Be Pe ee Pe PO Po Ph Pe PO 
be 
1! 
u 
pares 
— 
—s 
_ 
ee 
<< 


4 
48°89, 25.4 18 2.307 
: p< 7K +66 efor TE MP AR A lil 
mers A 3 g i 218 AM Id BUSS ASDRESS™ Beker RETE TRY“<15><le2> 
e394 Ol62e02 oOsSoIS O4S44O OSHSOS MKE: ASCII «15><12>7 KEYBOARD ASCII AND OCTAL LOOP-<«15><1l2> 
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owe ‘ A KEY IS DEPRESSED, THE ASCII CHARACTER AND’ 
"f 
1 


Phe DIGIT OCTAL CODE WILL BE ECHOED’ 


oe 
HO _LOOP’<15>< 12> 
THM Mi cor 






» Whe , 
elites | Seusnaaenasasasesasenssssgasoqecsslss / 
«15><1e>/7 Ebbeeel 4444944443944 4344 EREEEEEEEE / 
4 


PEEECEEEEREEE! 











VTSOA (12 LINES-NO COPIER) - 

VTSOB (12 LINES-COPIER)/ 

VTSS (24 LINES-COPIER, VTSO BASED) 
VTSOH (12 LINES-COPIER-D.C.A.)/ 
VTS2 (24 LINES-NO COPIER OR PRINTER 
VTS2 (24 LINES,COPIER-NO PRINTER) / 
VTS2 (24 LINES,PRINTER-NO COPIER) / 
VTSS (24 LINES, COPIER, vTS2 BASED) / 


NOUS Wtue 
pararas 


0 0 ee be he 
OCD 


ee 


EWM-SBBIRR PEN BSSVER POW So 





. ><12><12> LOOP ON EST PATTERN LETTER (A THRU 2) ” 
3 » ASC 3 ine Tear aT "Sees PATTERN LETTER (A THRU Z) ” 
RS « S> < 
: .& 9,8 7040 49. 0,0377,0,0 
5 : g 1357486? be Reres743 
Br 77, 0, 
4 t ae rt $842: Sr>, 
2440 1 ie 3 cc IF Sore) > = /<200> 
Sia 1 ae TTER TA 17 
ate O47516 é 
13d AINEXPE oD OR 2 ae INPUT CHAR/ 

ewe ou71 ZINVAL ID tr TRY- AGAIN / 
ae i106 7ERRP V TSTNUM/ 

4E 1 1 7ERRP vT 15T WO 2NO WO 3RO WO 
e449 020666 051105 Sct ZERRP VTNOW TSTNUM EXPCT RECY- 


MAINDEC-11-O2VTC-E MACY11 3011046) LN gh A AD Y 4 ech 16-2 
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12% 0012S2 OT1: SERRPC, ! TNOW, T 

Bisse Seiaso Be: RERREE: VIN Fev ae 
-SBTTL KEYBOARD CHARACTER CODE TABLES 

; THE ACTUAL KEYBOARD LAYOUT IS REQUIRED 


BSi838 RSSS! BSLS6G VEQRH: Rotts *RoasSRRAIMRonoe Rous ee SRouL ss, Rowac 
1030 1 7,70,71,60,55 
1064 1 i 1 et) 131, i ili 173.1 34,12, 100177 
A i i Bie eS fab ie ste : Be litettiott its} iatb tsa 
EOUTVALENCES(LOMER case CHAR. ) 
021 00006 1 33,64 3,64, 5, 66,67, 70, 7} este iit 75.149, 19901 a 
A Bie Berl Beil Bee ey PM ata th rua St aca 
73 021326 172 0001 143 gy. 144, he ‘142; 130 ? 
57e ; SHIFTED ROW coors 
a8 ratte’ boos ppo4t 805100 Rowiss: “ HORD 33: ai! i 3: ay! ue 138 "de 88: 28° ett 133° 5+ 83: 19R0 76, {Bo010 
2480 ;CONTROL ROW CODES 


Bpops; Boaess Rowisé: t8e8 33,3188, 03, 84, $8, 80,7, 30; 31.00, 18.38, 0780910 ‘ 


yey yyy 
RR 
BE 
88 


g: } 
3 021536 033 1 O1S REVLF: .BYTE 33,111,015,377,0 ;REVERSE LINE FEED. 
Sues Beisse §=— 033 e377 Exe: “BIE 33;078,377,8:8 SENTT ALTERNATE KEYPAD MODE 
Sie Geises §=— 833188) BOG Extra: <Byre © 33;189;8,377:6 ENTE cRpnics Mook. 
sie Geis = 83318037 Expntn: “Byte 33; 180;377:8:8 {BYSABLE PRINTER CONTROLLER MOLE. * 
2497 
sa 921602 933 129 377 kPTAB: cet B Daren + 3 haere 
pee OF RE RUE tare 
Se Siecle EGE meorens (PUR Sjhoeey Sa Ent ap. saeycr4aa,aor 
2511 021674 533 a8 * [BYT 3°} bebe SP: AS ta! 138 278 33 143: rae 1.33. 102.-1 
efile 021713 533 164 [BYTE ©=-335 773 164! -1/33/ 77; 165: -1:33.77, 166.-1,32, 103, -! 
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2513 021732 033 


1 . 
14 021751 1 "BYTE 33/77 56,-1,33,77,118,°1,0 
1 1 17 tu é a sn 
14 1 Frere ; up ree x7 
$ ‘ < 
aay 082 EEE] CARES Puech PON IRE yo ue 


TOs 7 fH ap Ie: is ras TO PURCHASE mee ; FOR 
CE as ann ik ar rag 
eee NIEXTS: Bi at + $8? ite unt TION a Silliy irre I$ Sue sE Ele Ms SNe UL THO 


43 


oe 
tur 


use 
8 ped ee 


wr = “~wrurTU 
£ 
- 
? 


pt 
1 1 
1 MTEXTE: < in > 
1 1 MTEXT?: ad dF, TY FOR THE USE OR RELIABILITY OF 
1 Aid } MTEXT®: i askines nh RT unTE H IS NCT SUPPLIED BY DEC.” 
Sede 023151 1s 1 BY Ave 
S4C .SBTTL Tf 
(2) 5 SAAS SELASSSSESAASHSEAAASLALA SHELA SSSRSS EASES ES SHEE EEE EEE EEE 
1) "ENABL LSB 
3 
(1) .OSABL LSB 
4 3 


a 


; ppecespenzsegenyssesesegesneossssevecsnerssegecnepes*aroemansnee 
i ATHIS A cihaien WILL INPUT A SINGLE CHARACTER FROM THE T 


*CALL 
is "ROCHA ene dMeaach FERS ba TESTER FROM THE TTY 
T PEO OFF 


:# ttn S ARI TS B 


a in an han ad 
ees 


= 


31 11646 SROCHR: MOV (SP), -(SP) ; ;PUSH THE PC 
aig 999004 00002 ae ol iy ihe 
17766 i 0004 TKB,4(SP) He se TY 
ee BER Tian gg ad 
1 155720 2s: aac :;WAIT Fon A CHARACT 
100375 it UNTIL ITS THE e 
1 +3 HORDE T TER 


PAB) > AMMAR -— > 
BOH4 + 
—K 
NO w 
- “Nn 
' 
-WwW) 
vu 
Bm 
rr 
+ ©O 


= sb 0 0 bh 0 ee 


Nr ee et ee et te ee ee ee ee es es ee 


RIS tat tat tat 


RE 
SS 
x 
453 
£f-~-s OVO ts 


ee eee ee 


: IT 7-BIT ASCII 
1+, be bi1S A CON ROL-Q? 
000756 ge ae sy res SCARD IT 
bbe? 000004 000140 3S: cH SP), #140 He tr puER CASE? 
6687 000004 000175 MP 4(SP), #175 :; : IT A SPEC TAL CHAR? 
3 BGT 4 ::BRANCH IF YE 
042766 000040 o00004 BIC #40.4(SP) ::MAKE IT UPPER CASE 


OS 


se gy ae MACYI1 30(1046) 31-AUG-77 09:17 PAGE 16-4 
OZVTCE.Pil 1S-JUN-77 10:41 TTY INPUT ROUTINE SES O0Se 
‘h} 023274 000002 4S: RTI GO BACK TO USER 
Bs enneneseocneconnscsesesssenebhssnesssonspssssnosonscosonccose 


:ATHIS s. S ROUTINE WILL INPUT A STRING FROM THE TTY 


tat all alla 
oo 


*e is RPE IRN HERE fa or ie Tast CHARGE TE TER WILL BE ON THE STACK 
(]) 8 4 fm A BYTE OF ALL £.g 
p53575 en Ceattvie G8 Eee OORESS 
4 : ree sprty N+. RB $5 ai i? 
le Bios $3 eds aeriee FROM THE TTY 
MOV sio>° (R3) +? 
10S: cree ry tr3) 3 Be 


ner TYPE TYPE A rs 


‘ee ‘TERER THE CHARACTER” — 
(R3)¢ CHECK FOR RET 


EES Leche nies cata 


t ‘ 
24 ; $5 Paik NOT RETURN 
L -1(R3) : HELEAR RETURN (THE 15) 
T . B.. 9 $3 pea) FEED 
my (SP), +¢ a) a STACK AND PUT AOORESS | OF THE 
goggge v 4( SP) 2 $3 FIRST ASCII CHARACTER 0 
900004 ay as Ty th at SP) 
. Qs: : VT 8 ifr t FOR ASCII CHAR. TO TYPE 
, YTES FOR TTY INPUT 
IN K iteene VE he ES FOR INPU 


TTYIN: . 
CNTLU: . & 3 6718 : CONT 
: CNTLG: . 7#G7«15><1le> ONT Ror “ge 
popes aM ASC «15><12>/7SWR = - 
OS3SO0S SMNEW: .ASCIZ 7’ NEW = “ 
.SB8TTL READ AN OCTAL NUMBER FROM THE TTY 


; psenevenegsecesenssssesssccsossosonerssensosssssonsussoncesesees 
TATHIS R ROUTINE W Lhe READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


ae ieee te bel ANY RRESE 2 





Ratatat teat tata ot aot ot dd ot 
SERS 


ra + 4 


04704 
036440 000040 


Oe et et tt ee te ee eee eee es 


. ’ lll ci teiitaglidiediane setae dae atdidlinhiaeinine i 
CAD gD + = ob bo 0 dF b= 0 0 ho bo be bs be be Be ho hs Ps a Pe Be 


~ oN 
a 


er ee 


ARRIAGE ETURN- THE COMPLETE NUMBE 
RETYPED. THE INPUT Is D BY TYPING A CARRIAGE RETURN. 


oe ee 


; . 
; i* RDOCT 3s RE 
ee :# RETURN HERE COW of ROER ROER iTS AR a TOP oF | THE STACK 
aH ;* it GROER BI € IN $HIOC 
; 
(1) 023450 O1164€ SRDOCT: MOV (SP) ,-(SP) NBT OR SPACE FOR THE 
Ch) O1666€ 900004 ocoDDD2 MOv 4(SP5 g( SP : ANP & 
(3) O&3460 010046 MOV RO, -(5P) USH RO ON STACK 
(3, Oe246e O1014e MOV R1,-(5P) i TPUSH Ri ON STACK 


HOS 
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(3) 4 010846 ov R2,-(SP) tt TACK 
(h 40 1S: ROLIN He Z LINE 
cL) 1 =a nov ($P2¢.RO 5 ae § OF 1ST CHARACTER 
ib CLR Re Bee ert WORD 
( 
(1) 2s: VB (RO)+,-(SP) + PICKUP eH GHARAC TER 
(1) 4 Q 3$ 332 0 
iL) 1320 000060 Bea #°0, (SP) i MAKE SURE THIS | CHARACTER 
tl) 1 GT 4S 33;1S AL 
(1) 4 8 000067 MPB #’7, (SP) 
(1) bj ug 
(1) 1 R 3; #2 
(1) ROL R 
(1) ASL PR 5784 
(1) ROL R 
(1 4 RoE ORB aie 
(1) 5 & 177770 C #107, (SP) TRIP THE ascyt JUNK 
(4) ue 1 : D 4 R1 IN THIS 1 
(1) 7 3S: TST (SP)+ ee TERMINATOR FROM STACK 
(1) 1 000012 MOV R + 42(SP) ::SAVE THE RESUL 
(1) 4 Ol 023606 MOV Re I cT 
(3) 1 MOV (SP)+,R TACK INTO Re 
(3) Oe 12601 MOV (§P)4'R1 ioe TACK INTO R1 
(3) Bsseee Bpsee n Vv (5P)+'RO RTACK INTO RO 
(2) a 3 4$: ist (SP)+ i LEAN Pa PARTIAL | FROM STACK 
(1) e357 1 rn gue . ew PE UP BORA THE THE BAD CHAR. 
Ch) 923600 491 001166 . TYPE gOues try ° “a we “LF” 
(1) 023606 SHIOCT: .WORD } ; ef OROER BITS GO HERE 

eote 923610 108777 155324 MSCOPE: TSTB Pas ite 
a le os 010650 Gi ope 

Bes §53e38 Bea BNE OER ag" "ERP oy TEST 

2547 .SBTTL SCOPE HANDLER ROUTINE 
Hee e TING CONTROLS THe LOOPING OF SUBTESTS, IT WILL INCREMEN 


tiTH s T WILL INCREMENT 
it LOR THE eal gare ih NTQ nYHE DISPLAY REG. (DISPLAY<?:C> } 
: LOO 


+ b+ + bo - 
. 


j 
(1) WITCH OPTION BY THIS ROUTINE ARE: 
sa? 
13 sede COOP ON N teat IN SWR<7:0> 
(1) i aS 
cd) ie SCOPE ;SCOPE=IOT 
‘1; 023624 SSCOPE: 
(1) §23684 022777 oY¥ODD0 iss306 18: BI sBIT14, aSWR ;:LOQP ON PRESENT TEST? 
(1) Oe363e 001035 YES IF SW14=1 


VER 
oo OF CODE FOR THE XOR tESTERS@eas 


IOS 





-SBTTL ERROR HANDLER ROUTINE 


| SeegwacegseqdocnsegeseonsescpestPeere etn aan Te RRR COUNT, 


ATL T W INCREMENT ont ERROR FLAG AND THE ERROR COUNT, 
sata eee aa. BER THE ADDRESS OF THE ERROR CALL 


MAINDEC-11-D2VTC-E MACYL1 30/1046) 31-AUG-77 09:17 PAGE 16-6 
DZ2VTCE.P1l 1S-JUN-77 10:41 SCOPE HANDLER ROUTINE SES 0060 

(1) 023634 000416 SXTSTR: BR 6S 11 mani eT g0y. 79. me ye ay pare 
4 i +3 
(1) Vv - . ae TS OF AME ERROR VECTOR 
(1) eaeae Bie 7? 000004 Rey eae Ekauce ii , reeeae a 
(1) ? 1 TST asl? He T x 
beieeg g 000004 Be + sERRVEC i Ss "fext, 9p YECTOR 
1) 2 3 S$: M4 ( d+, (SP)s , HA T if pie BIER 6 TIME OUT 
iB Baési, 7000" GRY Spun NeMve’ SCR TE Bredent" F228 
1) 7 6S: ;@8e88—NO OF FOR THE xOR’ TESTERSseue 
? rte 1SS240 T , aSWR tt ON SPEC. TEST? '! ‘ 
As 1 a 001102 ee i TSTNM 33 Fhe’ Rrcat TEST? SWR<7:0> 
(1) 71 2382 SSVLAD: 5 :;COUNT TEST 
(1) Osa ie bri 3 MOV ( 4) PSLPAOR : : SAVE sco bo0P, ABORESS 
Ch) Be? £ A03935 1S5206 SOVER: FBV" spay iiSTeeLarT ST URBER 
(1) 33 13716 “MOV Aid ogr$ 33 me TUR ORES 
(1) 023740 o0000e RTI ::FIXES P 

2548 

2543 
(]) 
(2) 
(1) 
ra ) 


iat goto, Sep TI VERED BY THIS ROUTINE ARE: 
#SW 


= hs ee ae ee ee ee ee he ee ee PL LE ee ee be be ee he he he Be hs eB 
. 


( 
r 1S=1 HAL se 
} i #SW13=1 INHIBIT ERROR TYPEOUTS 
(1 iS ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
(3 853948 119737 go1soe corse ERROR poy TSTNM, TSTNUM 
eis 

23750 108237 Boi 1BS 7$: INC serio’ ; SET, THE E ERROR FL FLAG 
( 0s3756 013779 901108 155iS6 Ry ler. , BOISPLAY : DiSPtay. Test NY FE NURGER AND 5 ERROR FLAG 
( g3 
(1) 023770 011637 001116 MOV (SP), SERRPC ::GET ADDRESS OF CORROR INSTRUCTION 
(1) 3774 1 3 Ge 001116 SUB ¥ 3 € 
(1) 4 1657 Peer 001114 MOVB a PC, SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
(1) O2e4010 777 Oe0000 iSS122 BIT 881713, dSWR i i KIB TYPEO T 
(1) O24016 1004 BNE go :: SKIP TYPEOU : 
(1) O24020 4737 O240S4 ISR SERRTYP ::GO TO USER ERROR ROUTINE 
dewdes 104401 901167 ae TYPE PERL 
(1) 024030 005777 155104 os: TST SHR ;;HALT ON ERROR 
(1) 624034 100001 BPL 3 ::SKIP IF CONTINUE 
) dev 3 300000 soa HALT ::HALT ON ERROR! 

j H 
‘1) O2404O 022737 007014 oD0042 CMP #SENDAD, ae42 ;;ACT-11 AUTO-ACCEPT? 
(1) Oe4046 001001 BNE 6$ :: BRANCH IF N 
(1) Oe40sO 090000 HALT YES 


0e40Se €$: 


OS 


MAINDEC-11-O02VTC-E MACY11 30(1046) 31-AUG-77 09:17 PAGE 16-7 
OZVTCE.P11 1S-JUN-77 10:41 ERROR HANDLER ROUTINE SES 0061 


Ge4ose 000002 RTI ; ; RETURN 
-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
$  Soesennegsensonsssgenegevensasossoceavengcosessnsceeoenreensrns 
iataGe YS 10° pe REpORteD. OY fen OBTRINE, FRON The “ERROR TaoLe~ (SERRTED 


;*#AND REPORTS IATE INFORMATION CONCERNING THE ERROR. 


rr. 





5 
(}) 
(2) 
iB 
if 
(1) 
(]) 
(1) 4OS4 SERRTYP: 
(1) 4 104401 001167 TYPE CRLF s;"CARRIAGE RETURN” & “LINE FEED” 
Ch) peo Baebss COR — : BOCKUPCTHE ITEM INDEX 
(1) 4068 433700 001114 et 8 aaSITEMB,R0 ie 
2 om " Hoke "BOPRE Hi ZERon 
(3) 024072 013746 001116 MOV SERRPC, -(SP) ie oe TYPEOU 
(2) TYPOC :3 YPE--0 ASCII(ALL DIGITS) 
(1) ates BR 6S ;;GET OU ; 
RNS se | AOIUST Te PERE ETAL Het! 
(1) il A R 
(1) Beatie Abb aSERRTE RO 5 +EORM T Pp INTER 
(1) 854138 ie 3 tn IF RO POINTER 
(1) 1 TYP: +t THE ” . 
(1) pSaise 2s: rtORO 0 Sar R Ron s “ BS NTER GOES HERE 
(1) Q24130 104401 001167 TYPE SCRLF i SCART URN” & “LINE FEE - 
(1) O541%9 B85, 024144 3S: bey (80)+,4s :3P K ad 8 iG " BOINTE 
(1) Oe4l4 401 33 ut “DAT R” 
(1) 024144 4S: 'WORO 0 “DATA R™ POINTER GOES HERE 
(1) Oev146 20480 001167 TYPE SCRLE a CARRY G TURN” 8 “LINE FEED 
Ch) i ¢ 11000 Ss: mov 0),RO : PICK T onmete POINTER 
(1) Qeui5e 1 6S: MOV (SP)+.RO > REST 
(1) 4166 104401 001167 Type aScriF i | CARRIAGE RETURN” & “LINE FEED” 
(1) 166 7$: a 
(2) Osteo 013046 MOV a(RO)+,-(SP) ;;SAVE 3(RO)+ FOR TYPEOUT 
(2) Oe4170 104402 TYPOC ::G0 TYPE--OCTAL ASCII(ALL DIGITS) 
(1) Gev17¢ 005716 Ts {R0) iI THERE ANOTHER NUMBER? 
(1) Beui76 104401 024204 Fre ses a TWO(2) SPACES 
cD 024204 ge0040 p00 Qs: -BSCIZ a ::TWO(2) SPACES 
d 
a 2 
e553 .SBTTL TYPE ROUTINE 
(@) ss SKAKAASSKASKEASHRHAKSAAAKKRAARASKKKSKERKAAAAKARRARRARKKKRRKKRRARKER 
(1) : KROUTINE TO TYPE A Clg MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
se) :#THE ROUTINE WILL INSERT A NUMBER NULL CHARACTERS AFTER A LINE FEED. 
(2) ! @NOTEL: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


K 
BOSORECE } 4 -OzvTE- Sune > yt he 30‘ 1046) robe eS Neo t? PAGE tO SEG 00e2 
sGTES: ———_AFTLLE OUTRUN THE SSORAE,@h FULHERLHRRERTENS ReouTRED. 


12716 oO00040 Qs: MOVB ; REPLACE TAB WITH SPACE 
4737 024360 9S: JSR ec, $tYPec >; TYPE A 
CHARCNT : } BRANCH F a AT 
(8 
4 BR 2 Ratt R 
05777 154S64 STYPEC: T Te ; Ms R PE WAIT UNTIL PRINTER IS READY 
00002 154556 MOVB (SP) aSTPB LOAD CHAR TO BE TYPED INTO DATA REG. 


677 O 
766 000015 000002 CMPB is CHARACTER A CARRIAGE RETURN? 
003 BNE 1$ ;BRANCH IF NO 


132737 000007 Oe44e4 BITB 


(}) 

()) 

(]) 

ib isc USING A TRAP INSTRUCTION 

( ; 

(1) if. Pe Pe SAOR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
(1) 3; TY 

(1) :# MES: 

# “ . 

(1) 318 10S737 001157 STYPE: T T8 STPFLG iS THE A TERMINAL? 

(1) e 9 HALT tne ME IF NO TERMINAL 

HH BREE Bie coooe = RY sty ine ' 

1h ll 2s: MOVB i Ope Sp) 33 a rer rR 188 FPED on ONTO STACK 
1} GEIB Ghee cos: SLE t no HERES RDNA TOR ROFL TCP THE Stace 
(1) 7 ooo0002 3 ap #2, (SP) He T RETURN PC 

a) e738 000011 4§: cw HT, (SP) :}BRANCH IF <HT> 

Ch) 2s4 2716 000200 MPB hota ;;BRANCH IF NOT <CRLF> 

ae tier ib. 1M AER eee ERY 

Ch) 5 024424 CRB HARCNT P ARC HARACTER TEQUNT 

(1) oe 737 4360 S$ SR ee Beas iv tetera 

(1) 1358 1156 65: cHPS FItLC, cs (SP)+ HL I rite OR FILLER CeRY CHARS. ? 

(1) 1 rk) 001154 MOV NULL, - (SP) T 4 Mala: 1 char * NEEDED 

(1) 4 o00001 73: B 1(SP) HS A NOLL ED TO BE TYPED? 

(1) 339 003776 smal Bcf aS eues ::BR Teo NO--GO POP THE NULL OFF OF STACK 
(1) a3 155337 payaso : CB ScHARCHT BB NOT St count kg A COUNT 

(1) 3 0 BR $ : LOOP 

(1) ;HORIZONTAL TAB PROCESSOR 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(323 


Beppeerrens == FP Fir 


SVT R RARE ZY 
ge 
— 
$e a 


(nian tae an ae ee ae ae eee 


ee ee a ee eh ee PU LUT i ee ee 
Nt ee ee Swe we we ww 
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Reyyo4 495037 Agsga7 oases gre $ HERCNT ; | YES=-CLEAR CHARACTER COUNT 
000012 o00002 1S: bee Bee nei SP? +3 CHARACTER A LINE FEED? 
= ns a ebeacres 
$CHARCNT, , WORD Q. ::CHARACTER COUNT STORAGE 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
this RouTIne 1s. USED To CHANGE A 1e-BIT BINARY NUMBER TO A e-O! 


fr CASEI URBER An NGE 8 16-BIT BINARY NUMBER TO A 6-DIGIT 

ie 

pa Me NTER HERE TO Tue Be Lloeess ZEROS AND NUMBER OF DIGITS TO TYPE 
iy 


4 NUM, - (SP) NUMBER TO BE TYPED 

te Tre9 PICALL FOR TYPEOUT 

i "BUYE N in=I TO 6 FOR NUMBER OF DIGITS TO TYPE 

7% YT M ;;M= 

te =TY ZEROS 

is =S han ROS 
;#STYPON----ENTER HERE TO TYPE OUT WITH ne SAME PARAMETERS AS THE LAST 
#STYPOS OR STYPOC 

is * mov NUM, - (SP) ;NUMBER TO BE TYPED 

is FOSON tFCALL FOR TYPEOUT 

i #STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

ie MOV NUM, - (SP) ; NUMBER TO BE TYPED 

ts TYPOC ‘CALL FOR TYPEOUT 


990001 ws sem ney te Shik few y siet1S vee 


;;ADJUST RETURN ADDR 


B 
4653 STYPOC: MOVB sft , SOFILL 33 SET a ame © FILL SWITCH 

; +1 T FO X(6) DIGITS 
Bo0006 Ost 23 STYPON: nove at 4 ERATION boeNT 


SahOD +1 .RY iter e NUMBER OF DIGITS TO TYPE 


O00006 Abs 33 rRogT T FOR MAX. ALLOWED 
Oe46S4 MOVB Rs. Son0pE i one br Use 
024653 MOVB eon Re T THE ZERO Nai L. SWITCH 


00001e MOV cK rT T seu ee 
Si ae esr ie teu US 


=——O 
bebe 
o 


ie: 
NEN 


SSNRo SNe 


Gaoe9 


—s 
w) 
N 


Besieunue 
Slee 
if 
R 
: 
333 
> aie 


gewe a4 196 1$: ROL Re 6 ane’ M NTO “C* 
pSdeup 105 2s: ROL RS He Tt DIGIT 
024542 006105 ROL RS 
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AR Ae I EE a as EY tne Sone aes hb b= hh Poe he Pe 
ee et et et et et et et et et et et et et et et et et et et ee et et ee eee eee ee 


piieaiasieaendieaitnaateainarnee erat tiaiiiatingn siblieenitiaalin.eeenmaniaaaeendinatteatiallbabnabiaeaaiarin (= an ae ae han ae ee ae 


be be ee er ee (ILI LE ee ee 
ee ee et et et eet eet et et et et et et et ee ee ee et es ee ee es es 
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006 10S 


RRORO Seeee 
MW rw 
NNW Wy 

000 OorLe 
Ore 


MACY1L1 30(104%6) 
10:41 


0246S4 
177770 


oooode 000004 


024756 


Ogy73/ 
177771 


024756 


024754 
001057 


31-AUG-77 09:17 PAGE 16-10 
BINARY TO OCTAL (ASCII) AND TYPE 


ROL RS - 
- PS a Bia: B18 picite 
Bok ¢f77770.R3 4 - 1B°or JUNK 
ir ce 
4§: INC RY }}DONET ss ANYMORE 0°S 
2 #/0,R3 ::MAKE TH 5 D g T asciy 
SS: Bt 8 as 3 | MAK i tne ALREADY 
mr TYPE at + y THis DIGIT 
” Bey 33 $5 ae MORE TO DO 
IK 4 33 G N’T A BLANK 
6S: Rov $84, RS HH Labi "bici? 
MOV CSPDa° RS + te 23 
n y ech), 4¢SP) 33 SFack FOR RETURNING 
RTI SF oace 
.BYT He F CII DIGIT 
soca: ‘B : ie RRINATOR FOR Type ROUTINE 
a 0 Hi R OF ultey TO TYPE 
"SBTTL RANDOM NUMBER GENERATOR ROU 
eee a DUTINe Te A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERAT 
Ate a TINE Is A 00 LE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
Bf POS Abe ROUT EE peor 
;* i NUMBER W 
3% ; ; SHINUM, SL hurt 
Wo AY ROARS PU era 
’ ’ 4 
MOV SONAL RO Bush WITH LOM 
sn Sec ERi 
’ ii 
- ROL Re i ROTATE CaR AON NYO R1 AND 
BNE nS + EOS ue ity Loop 
ADB $PONUM, RO Hs “HUMBER 10 19. MAKE xX 129 
ABE SHTNUM Ri ?:ADD NUMBER 6" naKE xX 129 
ADD #1057,R0 ?:ADD LOW CONSTANT 


SEG 0064 
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6-11 
M NUMBER GENERATOR ROUTINE 


DZVTCE.P11 1S-JUN-77 10:41 SEG 0065 
(1) ? HS fee SREP Sy 
) 74 He H Cc T 
1B RRS FRB gee ae a 
i HE es ws 
4) eS Hae TRE a te we 
(1) BA630? RR ipso + i POF URN 
th) 024756 12aaee Hig er t Saez 
2587 TTL. TRAP ROP’ pecoBeR 
(2) : THIS "ROUTINE WILL PICKUP THE LOWER GYTE OF THE ~TRAP™ INGTRUCTI 
th) to use NG Mth TRO SUS THe TRAP TA T OR T PE TARTENG. SDORESS 
(1) HF oddly D TROUT INE. prod USING FAROE ESR THe ST T WILL 
(1) $806 16 T 
Ct} BSGZeS 81008 noone owe a PS oRO tiger Te TReP 
(1) B45, Reese ney (BB) HE By BORES 
(1) O27 1000 MOVB (ROD. RO jiGET RigHt we OF TRAP 
th) nae 350. 025014 + Rab i RO + TRB Ex 
1) BASE Ree £5 ‘ + AROES Aout inee 
(1) 
(1) ;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 
(1) 11646 STRAP2: MOV (SP), -(SP) : THE PC DOWN 
(1) hitter ates op0004 o00002 HOV 4(SP5,2(SP) iIROVE. THE Py SOUN 
(1) O250i2 o00002 RTI : RESTORE THE PSW 
(3) .SBTTL TRAP TABLE 
(3) ;aINTS TABLE CONTAINS T STARTING ADDRESSES OF THE ROUTINES CALLED 
(3) HE AP” INSTRUCTION 
(3) ; ROUTINE 
(3) 025014 oPso02 $TRPAD: .WORD STRAP2 
(3) 6025016 024210 $TYPE ; ;CALL=TYPE TRAP+1(104401) TTY TYPEQUT ROUTINE 
(3) O2e502e0 o244S4 TYPOC $;;CALL=TYPOC TRAP +E (1 4 g) OCTAL NUMBER (WITH LEADING ZEROS) 
(3) de50ee Deu 30 TYPOS ;;CALL=TYPOS RAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
(3) 4470 TYPON 3;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
(3) 025026 012564 STYPDS ;;CALL=TYPDS RAP+5(10440S) TYPE DECIMAL NUMBER (WITH SIGN) 
(1) 
(4) 023156 5 ;CALL=ROCHR TRAP+6( 104406) TTY TYPEIN CHARACTER ROUTINE 
(3) Ge8034 OSs46B Sorin a SRO LIN TRAPSIOFIO4910) READ AN OCTAL MUMBER-FROM TTY 
= 
2588 .SBTTL BRDeRT DOWN Akb GP Roy TINES 
(2) : = ERGCERERESKLEREMKKRESKEREKKELERKAAKKHK SERRE KRRERRKAKALEKAREKES 
(1) ‘AOWER DOWN ROUTI NE 
(1) 025036 012737 025176 op0024 $PWRBN: MOV SSILLUP,3#PWRVEC ;;SET FOR FAST UP 


b2vV 


Cian ane hae tenn ee 


er et et et et et et et ae ee ee ee et tt et et ee eee et ee eee ee 


| nl ant a ee ae ae le tn ee ae ae ee ae Ba ee an ae ean ae 


Os = be ae Bo Pan Bn en Be nn CaN aD LaLa) Lada O= 0 B= = = 0 PU = Bo Oo Oo LILI 


Rae 








kbs OST eet on MACYI1 30( 1046) 


-77 10:41 
12737 000340 000026 


a 


BOE 
pbuck Bown an uP Routines 


v £32 eee HF Es 
Ml Be i 
Vv ie (SP) 33 efacK 
SRP Sepuavec' | VECTOR 
' --2 HANG UP 
5 LAOKHSASSSSSHESSSSSHSTHESHSHSHSAAHSESESHSSSEGHHSHSGHHHSH HHS SRESESEEE DS 
ASER, EQOUTING SPWRVEC ;: T.£oR FAST DOWN 


asciz 

VEN 

: K bd 

GOD: -BLKW 
BUFFER: 0 

ENO 


8 





«15><12>"POWER™ 


HF age ta ce" 
c iuie ae 


NTO RY 
NTO R 


Z 







THE POWER DOWN VECTOR 


R 1 Te PURE AE Ge BOINTER 


Bo eee eta 


eceeee Se Se ee Ce OF OF oe Oe Oe Oc oe 
2 OS SO OF SF Se OF OF OF Oe OF ot Os OF 





SEG OO&E 


CO6 
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DreTee Pat 15-JUN-77 10:41 SYMBOL TABLE SEG 0067 
& MK 1 onerty 
hits Re fi ter 
mK 4} 2 
mK i PIROVEs 
real «164 PANTS 
im 1 x PRICHT 
g N 1 110 PR s 
G 1 2 
16 J PR z 
N & PRY < 
NP TECN : . 
4 PR 2 
3 Pay 2 
; 2 
i ¥ T 
™ 


as 
7 


Oo 


ssdgddenescy 


44444 


| 
“Eyes ones 





KK HE HEE HE HE HE 4 





: Tl 
SITIO 
gt tt ROW1 
: rt 78 ROW 
BIT14 T ROW I 
nus rt te ca 
i sa i aa 
T4 43 S R 
coa8 R 
} a 
5 1 ROWS 
RSTR 


0 BO 0 0 0 0 0 he bh ee 
P 5 





COPTST RS 
Aes é i ee 
caf rf a 
‘ae Sor Ey 
ATST 7 OCT D114 
ISP = . SUTPUT EA C Tae 
pela pe? urput gie4o0 TRC, 


MAINDEC-11-D2VTC-€ 


OZVTCE.Pil 


TKLET® 177774 
G te 





3444 4 4 
ese 
Wtwte-oO 


cht ith 43 43 


pa ah 


4 
DB 
-4 
A 
oO 


ERRORS DETECTED: 


OZVTCE, OZVTCE. SEG=O2ZvVT 
RON TIMES ec ian C 


ooc 


0 


MACY11 30: 1046) 
1S-JUN-77 10:41 


3 


444 


444 494 494 4 499 4 44 44 
0 0 oe Bee 
NOUS Wtu-O 


Re ae oa Soe at op tot pot tt a Oe 


sts sANAAAAAAAAAAS 


an 


< 
3 


ce 
ONOS 


RUN-TIME RATIC: 457731=14.3 


CORE USED: 24 


(47 P 


AGES; 
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SYMBOL TABLE 


2 ae - 2-2 uh Oo 
«= « \\ « @ 


=,°,°,°,9,2,9,0 
«= « 


- 
+ ¢ 


+ 
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